<![CDATA[
;; Nathan Hjelm
(define boxstar
'((to drawbox (n)
(repeat n
(repeat 4
(forward 20)
(right 90)
)
(penup)
(forward 20)
(pendown)
)
)
(to leftb (n)
(if (= n 1)
(drawbox 1)
((color (remainder (* n 60) 360))
(push)
(drawbox n)
(pop)
(forward 20)
(left 90)
(forward 20)
(right 90)
(leftb (- n 2))
)
)
)
(to rightb (n)
(if (= n 1)
(drawbox 1)
((color (remainder (* n 60) 360))
(push)
(drawbox n)
(pop)
(forward 20)
(right 90)
(forward 20)
(left 90)
(rightb (- n 2))
)
)
)
(to boxrow (n)
(if (= n 1)
(drawbox 1)
((push)
(leftb n)
(pop)
(push)
(rightb n)
(pop)
)
)
)
(boxrow 9)
))
]]>
