To r :A
Repeat 2 [FD :A RT 90 FD :A * 2 RT 90]
End

