character*999c;read'(a)',c;do1 i=1,len_trim(c);k=scan(c(i+1:),c(i:i));1 if(k>0)print'(a1h:xi0)',c(i:),k;end