haskell problem 16