<![CDATA[
(define stars
'((to stars (side angle max)
(repeat 5
(star side angle max 1)
)
)
(to star (side angle max count)
(repeat max
(forward (* side count))
(right angle)
(make count (+ count 1))
)
)
(penup)
(forward 50)
(pendown)
(stars 15 144 8)
(penup)
(backward 50)
))
]]>
