n=0 do 729 s=linein() n=n*(n<length(s))+1 _=charout(,substr(s,n,1)) end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page