[Haskell-cafe] [newbie] How to test this function?