to 
end
TO LZB :A  ;LZB 10
FOR "Y 1 :A [REPEAT :A [REPEAT 4 [FD 15 RT 90] SETX XCOR+15] SETX XCOR-:A*15 FD 15 SETX XCOR+7.5 IF :A=0 then stop ELSE MAKE "A :A-1]
END
TO LK :Z  ;lk 100
FOR "I 1 :Z/2 [IF (1+:I)* :I/2 >:Z then [MAKE "N :I-1 MAKE "B :Z-(1+:N)*:N/2 PU SETXY [-100 -80]  SETX XCOR + 130 PD TT :N PU SETXY [-100 -100]  SETX XCOR+130 PD TT :B PU HOME PD LZB :N+1  stop]]
END
to repfor
cs  for i 1 4[fd 200 repeat 4[fd 50 for i 1 10 [ repeat 9 [rt 1]]lt 45] for k 1 10 [rt 9]]
end
