[Haskell-cafe] Pattern matching: multi constructors to same branch