line input""c$
do
b=peek(0)
n=n+1
if!b=10line input""a$:a$=chr$(b)+a$
if b=10a$=""
if instr(" "+c$+" "," "+str$(n)+" ")?a$
?a$loop