gets stdin k
set i 0
foreach s [split [read stdin] \n] {if {~[lsearch $k [incr i]]} {puts $s};puts $s}