s:substring;r:?read\-line;l:split;while(a:r(?-,?-,~))#~do printf(?t,"~a ~a
",fix(ssearch(d:s(c:simplode(join(l(a," "),l(r()," "))),1,7),s(c,7))/6)+1,d);