segs by *yuko*

character*99c;read'(a)',c;k=len_trim(c);print'(a)',((c(i:j),j=i,k),i=k,1,-1);end

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page