haskell prob 15