[Haskell-cafe] Problem in code