(define square-all-blue
  (lambda (lst)
    (let ((square (lambda (y) (* y y)))
          (nothing (display "defining square in blue\n")))
      (if (null? lst) null
          (cons (square (car lst)) (square-all-blue (cdr lst)))))))
                                                                                 
(define square-all-red
  (let ((square (lambda (y) (* y y)))
        (nothing (display "defining square in red\n")))
    (lambda (lst)
      (if (null? lst) null
          (cons (square (car lst)) (square-all-red (cdr lst)))))))
                                                                                 
(define alpha 2)

(define square-all-yellow
    (let ((square (lambda (y) (* y y)))
        (nothing (display "defining square in yellow\n")))
    (lambda (lst)
      (if (null? lst) (error "Expects a non-empty list of numbers")
          (cons (square (car lst)) (square-all-yellow (cdr lst)))))))