procedure 0
  forward 16
  right 90
  forward 12
  right 90
  forward 16
  right 90
  forward 12
  right 90
  fill yellow
#display: x=-368, y=219, grid=32

procedure 1
  right 45
  forward 6
  right 90
  forward 6
  right 135
  forward 12
  fill red
#display: x=0, y=0, grid=32

procedure 2
  paint 0
  forward 16
  paint 1
  right 90
  forward -16
#display: x=23, y=300, grid=32

procedure 3
  pen width = 2
  right 45
  forward 8
  right 90
  pen width = 1
  forward 5
  right 135
  forward 10
  fill random
  left 45
  forward 3
  right 135
#display: x=0, y=0, grid=32

procedure 4
  repeat 4 times
    paint 3
    right 90
#display: x=43, y=-14, grid=32

procedure 5
  paint 2
  forward 14
  right 90
  forward 6 with pen up
  paint 4
  forward -6 with pen up
  left 90
  forward -14 with pen up
#display: x=-111, y=383, grid=32

procedure 6
  repeat 5 times
    paint 5
    forward 20 with pen up
    left 90
#display: x=-389, y=285, grid=7

procedure 7
  pen width = 2
  forward 13
  right 135
  pen width = 1
  forward 5
  right 90
  forward 5
  left 45
  forward 3
  right 180
  fill random
#display: x=0, y=0, grid=32

procedure 8
  repeat 4 times
    paint 7
    right 90
#display: x=0, y=0, grid=32

procedure 9
  repeat 100 times
    paint 5
    wait 500
    erase
    paint 2
    forward 14
    right 90
    forward 6 with pen up
    paint 8
    forward -6
    left 90
    forward -14
    wait 500
    erase
#display: x=110, y=116, grid=10