{(%stdout)(w)file(%stdin)(r)file read{dup 10 ne{write}if}{exit}ifelse}loop