(%pipe%pg)(w)file dup 0 1 99999{5 string cvs writestring dup 32 write dup}for