character*99c;do1;read(*,'(5a4)'),((c(i+j:i+j+3),i=1,29,7),j=0,3,3);1 print'(i0xa6)',index(c(2:),c(:6))/7,c;end