define shell(i) {
  if (i - 1000) {
    forward(i / 300)
    right(i + i - i * (1 + 1) + 15)
    shell(i * 49 / 50 - 1)
  }
}

left(90)
forward(100)
right(90)
pen(1)

shell(10000)