/f{(%stdin)(r)file 1 string readstring{f}if print}def f