[Haskell-cafe] looking for suggestion on pattern matching problem