Control.AFSM
data Event a
SM
data SM a b
SMState
type SMState s a b
newSM
simpleSM
constSM
execSM
exec