#!/usr/local/bin/rexx
PARSE ARG file

'/bin/cat 'file' >FIFO'

q=QUEUED()

DO i=1 TO q
   PARSE PULL line
   ln=STRIP(line)
   IF line<>"" THEN DO
      red=""
      DO WHILE ln<>""
        PARSE VAR ln wh'"'ln
        red=red""wh
        IF ln<>"" THEN red=red'\"'
      END 
      SAY 'echo("'red'\n");'
      END 
END 

