include../local/euphoria/include/get.e
object n,t,s
for m=0to 99do
n=get(0)t=402408for a=1to 18do
t=t/2s={cos(n),sin(n)}n=s[remainder(t,2)+1]end for
printf(1,"%s%f\n",n)end for
Note that non-ascii characters in the above source code will be escaped (such as \x9f).