[Haskell-cafe] Implementation of Non-Deterministic State Machine