Common lisp FSM generator submission