#!/usr/local/bin/rexx

'/bin/cat lepto.txt >FIFO'

lines=QUEUED();
red=""
DO i=1 TO lines
PARSE PULL line
PARSE VAR line ee'~' .
IF DATATYPE(ee)='NUM' THEN DO
   PARSE VAR red .'~'red
   SAY red
   red=line
   END
ELSE DO
   red=red"#"line
   END
END 
PARSE VAR red .'~'red
IF red>"" THEN SAY red


