/==[def[61 40([){(%stdin)(r)file read{[}if}def[41 61]{(test.ps)(a)file exch write}forall/