haskell readline problem