Euclids orchard by pooq

input""n
for i=1to n
for j=1to n
a=i
b=j
while(b)t=mod(a,b)
a=b
b=t
wend
?mid$(" t",1+!a-1,1);next
?next

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page