(]){(r)file 2000 string readstring
pop}def{(a)]print}stopped(a)(w)file(%stdin)]writestring