$EXTRN OPEN, PUTOUT, ARG; $ENTRY Go { = <OPEN 'w' 1 'inr/di.mst'> <PUTOUT 1 ' <DI (' '' 'di' <ARG 1> '.dtd' '' ')>;' >; }