(define-syntax combine
  (syntax-rules ()
    ((combine comb pred ...)
     (lambda (x)
       (comb
        (pred x) ...)))))