problem8 in haskell