Create combinator.hs