[Haskell-cafe] a simple function