Problem 14 Haskell