easy 134 in haskell, mod stuff