[Haskell-cafe] sequential logic