character*999c;read'(a)',c;do i=1,len_trim(c);k=scan(c(i+1:),c(i:i));if(k>0)print'(a1": "i0)',c(i:),k;enddo;end