(loop(setq n(read)l(read-line)i 1)(loop while(#0=format(equal(#0#*"~VR"(incf i)n)l)"~D
"i)))