TO LINE :A
 FORWARD :A
 LEFT 90
 :A=:A-5
 IF :A>4 [ LINE :A ]
END

:A=86
RIGHT 180
LINE :A