[Haskell-cafe] Help with generalizing function