procedure 0
  forward 16
  right 90
  forward 12
  right 90
  forward 16
  right 90
  forward 12
  right 90
  fill yellow
#display: x=-280, y=184, grid=25

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=-155, y=252, grid=26

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

procedure 4
  paint 3
  right 90
  paint 3
  right 90
  paint 3
  right 90
  paint 3
  right 90
#display: x=0, y=0, grid=32

procedure 5
  paint 2
  forward 14
  right 90
  forward 6 with pen up
  paint 4
#display: x=-20, y=212, grid=24

procedure 6
#display: x=0, y=0, grid=32

procedure 7
  repeat 5 times
    paint 5
    forward 20 with pen up
    left 90
#display: x=-486, y=310, grid=8