[Haskell-beginners] Function with mod cases?