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