[Haskell-beginners] Case statements shorter