Problem 1 Haskell