problem5 in haskell