input""n:for i=1to n for j=1to n
k=i:l=j:while(l)m=k-l:k=l:l=m^2^.5wend
?chr$(32+84*!k-1);next:?next