Here's a fun Scheme example: http://ll1.ai.mit.edu/shriram-talk.pdf

The state machine would look something like this:

    (define a
       (automaton init
                 (init : (c -> loop))
                 (loop : (a -> loop)
                         (d -> loop)
                         (r -> end))
                 (end : )))