;(define make-all-tester
;  (lambda (color)
;    (lambda (lst)
;      (if (null? lst)
;          #t
;          (if (equal? (car lst) color)
;              ((make-all-tester color) (cdr lst))
;              #f)))))


(define make-alt-tester
  (lambda (color1 color2)
    (lambda (lst)
      (if (null? lst)
          #t
          (if (equal? (car lst) color1)
              ((make-alt-tester color2 color1) (cdr lst))
              #f)))))

(define red-blue? (make-alt-tester 'red 'blue))

(define make-all-tester
  (lambda (color)
    (make-alt-tester color color)))

(define all-red? (make-all-tester 'red))