haskell problem 15