[Haskell-beginners] A simple function