procedure 0
  left 180
  forward 5
  left 90
  forward 2
  left 90
  forward 5
  left 90
  forward 2
  fill brown
#display: x=0, y=0, grid=32

procedure 1
  left 90
  forward 5
  repeat 5 times
    forward 3
    pen colour = random
    dot 1
    pen colour = black
    right 135
    forward 4
    left 135
  pen colour = ocherous
  dot 2
  pen colour = black
  right 225
  repeat 5 times
    forward 4
    pen colour = random
    dot 1
    pen colour = black
    right 135
    forward 3
    left 135
  right 135
  forward 6
  right 90
  fill darkgreen
  paint 0
  left 90
  forward 0
  right 90
  forward 6
  right 180
  forward 6
  left 0
  forward 1
  left 90
#display: x=-86, y=173, grid=20

procedure 2
  repeat 21 times
    paint 1
    wait 500
#display: x=0, y=0, grid=10