easy 157 in haskell,