(define tree '((to tree (depth count) (forward (* depth 20)) (right 90) (if (> depth 1) (repeat 5 (push) (left (* count 30)) (color (* 60 count)) (tree (- depth 1) 1) (pop) (make count (+ count 1)) ) ) ) (tree 4 1) ))