Euclids orchard by pooq

do
pull n
do i=1 to n
s=
do j=1 to n
a=i;b=j
do while b>0
t=a//b;a=b;b=t
end
s=s||d2c(32+84*(a=1))
end
say s
end
end

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

download

return to the top page