to spirale :s :w
  fd :s
  rt :w
  spirale :s (:w+10)
end