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