(defun build-call (op fns) (with-gensyms (g) `(lambda (,g) (,op ,@(mapcar (lambda (f) `(,(rbuild f) ,g)) fns)))))