(define swatch
  (λ (color1 color2 num-squares)
    (iterated-beside (λ (n)
                       (square 50 "solid"
                               (interpolate-colors color1 color2 (* n (/ 1 (- num-squares 1))))))num-squares)))