character*99c;do1;read'(a)',c;1 print'(atl1a1t1a1)',trim(c),c,c(len_trim(c):);end