logo spiral recur

cs ct home

to spiral_recur :n
   if :n < 1 [stop]
   fd :n
   rt 90
   spiral_recur 0.9 * :n
  print :n
end

spiral_recur 300