[Haskell-cafe] Constructing a 'State Cover' for a FSM