Plain_fsm.agner is a project mainly written in ..., it's free.

A behaviour/support library for writing plain Erlang FSMs