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