//draw a thorus

//"circle" function
TO circle
REPEAT 90 [FD 1 RT 4]
END

CS
SETPOS [ 300 400 ]
REPEAT 90
[
  //"circle" function call
  circle
  FD 4 RT 4
]