(%stdin)(r)file 999 string readstring pop{-5 and(%stdout)(w)file exch write}forall