$EXTRN OPEN, PUTOUT, ARG;

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