[Haskell] A puzzle and an annoying feature