(do(errsafe:w/stdin(infile:= p"/golf/test/_")#0=(pr:+""(drain:readc)))(w/stdout(outfile p)#0#))