Haskell Super combinator