(define (flip f) (lambda (x y) (f y x)))
(define (negate p) (lambda (x) (if (p x) #f #t)))
(define (compose f g) (lambda (x) (f (g x))))