easy 14 in haskell