haskell problem 14