INCLUDE shape
PENDOWN HOME
XOR                     //demonstration of rule xor
FILL "green COLOUR "blue
WHILE :a < 10
[NORTH
:a = :a+2
PENSIZE :a
REPEAT 24 [SQUARE 120 RIGHT 15]
]
