TO BOX

repeat 4 [fd :x rt 90]

make "x :x + 10

END


TO SPIN

make "x 90

repeat 16 [rt 45 / 2 box]

END


MAKE "X 2.500000000000000000E002