[Haskell-beginners] Code golf