// SEASHELL demo

pu
lt 90
fd 200
rt 90
set size = 20
repeat 65 [ 
  fd 20 
  rt 5
  logo circrotate turtledir
  pd
  ellipse :size 20
  pu
  wait 1
  incr size by 3
  ]
