procedure 0
  right 45
  forward 4
  right 90
  forward 4
  right 135
  forward 8
  right 90
  fill darkred
#display: x=-128, y=-180, grid=32

procedure 1
  repeat 2 times
    forward 12
    right 90
    forward 8
    right 90
  fill yellow
#display: x=-103, y=360, grid=32

procedure 2
  paint 1
  forward 12
  paint 0
#display: x=-339, y=175, grid=32

procedure 3
  repeat 5 times
    forward 8
    right 135
    forward 2
    right 90
    forward 2
    fill red
    left 45
    forward 4 with pen up
    right 180
    right 90
#display: x=-4, y=22, grid=32

procedure 4
  right 45
  repeat 4 times
    forward 6
    right 135
    forward 2
    right 90
    forward 2
    fill skyblue
    left 45
    forward 4
    right 180
    right 90
#display: x=0, y=0, grid=32

procedure 5
  repeat 15 times
    paint 2
    right 90
    forward 4
    paint 3
    wait 250
    erase
    forward 12 with pen up
    right 90
    forward 4 with pen up
    right 90
    paint 2
    right 90
    forward 4
    left 90
    paint 4
    right 135
    forward 12 with pen up
    right 90
    forward 4 with pen up
    right 90
    wait 250
    erase
#display: x=-52, y=347, grid=32