set x 10
while x < 100 [
  do star x
  penup
  left 54
  forward 10
  right 54
  set x x + 20
  color red
]
home
do circle x

to star y
  pendown
  repeat 5 [
    forward y
    right 144
    forward y
    left 72
  ]
end

to circle x
  penup
  forward x 
  color blue
  pendown
  right 90
  repeat 45 [
    forward 16
    right 8
  ]
end