(%stdin)(r)file =string readline{(,)search}if{cvi 1 3 index cvi}if{=}for