Ejection simplified by *yuko*

character*19a,b,c;read*,a;b="";n=len_trim(a);print'(a)',a(:n)
do1 i=3,n;read'(a)',c;1 print'(a1,99a)',c,b(:n-2),(trim(c(j:j)),j=1,n-1)
print'(a)',a;end

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

download

return to the top page