haskell prob3