to square fd 100 rt 90 fd 100 rt 90 fd 100 rt 90 fd 100 rt 90 end
to square :len fd :len rt 90 fd :len rt 90 fd :len rt 90 fd :len rt 90 end
repeat 36 [square 100 rt 10]