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