[Haskell-cafe] unary pattern matching