logo recursion 1

cs
to poly :size
  if :size < 5 [ stop ] repeat 20 [ fd :size rt 89 bk 50 wait .1 print :size make "size
    :size - 3]
 ; make "size :size * +4
   repeat 30 [fd 19 rt 360/39
  ]
  poly 20
end
  poly 50