a:=1;b:=0;for(n,1,9,for(i,1,a,(i ..)toBase(36)uppercase print)writeln;a=a+b;b=a-b)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page