procedure 0
  pen colour = red
  forward 2
  right 90
  forward 5
  right 90
  forward 2
  right 90
  forward 1
  dot 1
  forward 3
  dot 1
  forward 1
  fill ocherous
  right 90
#display: x=-154, y=24, grid=28

procedure 1
  repeat 15 times
    erase
    paint 0
    right 90
    forward 1 with pen up
    left 90
    wait 100
#display: x=-204, y=7, grid=22

