#!/usr/local/bin/rexx


'/bin/cat ./t >FIFO'
max=QUEUED()

DO i=1 TO max
   PARSE PULL line.i  
END 
line.0=max

p=0
DO i=1 TO line.0
   PARSE VAR line.i prom . '('len')' .
   SAY 'if (#$'prom'>'len') {'
   SAY '   $'prom' = strseg($'prom', 'len');'
   SAY '}'
END 

