while 0#(x:?read\-line(?-,?-,0))do(a:charlist(x),z:a[1],a[1]:a[b:length(a)],a[b]:z,dispterms(simplode(a)));
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page