[Haskell-beginners] Finite State Machine ..