(= c(map[- int._ 1](tokens:readline)))(on l(lines:allchars:stdin)(if(pos index c)prn.l)prn.l)