input""a$ b=len(a$) if b=7a$="long":b=4 for i=0to 2^b for j=1to b?mid$(a$,j,mod(i/2^(b-j),2));next ?next
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page