;; Nathan Hjelm (define hexfield '((to hexfield (n c) (if (= n 1) (repeat 6 (forward 20) (left 60) (color (* c 60)) (make c (+ c 1)) ) (repeat 6 (forward 20) (push) (right 180) (hexfield (- n 1) 0) (pop) (left 60) ) ) ) (penup) (forward 100) (pendown) (right 90) (hexfield 3 0) ))