(%pipe%dd<`dd`)(r)file 3000 string readstring pop =