character*49c;read*,c;j=len_trim(c);do1 i=j,1,-1;print'(a)',c(51-i:)//c(i:j*2-1);1 c(i:)=" "//c(i:);end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page