
TO ARCS :RADIUS1 :RADIUS2
( LOCAL "A "B )
REPEAT 2 [ARC :RADIUS1 :RADIUS2 RT 90 - :A]
END
