reset
cleartext
make "r1 106
make "r2 455
make "r3 50
make "h1 10
make "h2 8
make "h3 0
make "h1inc 31
make "h2inc 0
make "h3inc 40
make "count 0
repeat 4000[
penwidth 0.009
setheading :h1
fw :r1
setheading :h2
fw :r2
setheading :h3
fw :r3
make "h1 :h1+ :h1inc
make "h2 :h2+ :h2inc
make "h3 :h3+ :h3inc
make "count :count +1
print :count
home
]