$EXTRN OPEN, PUTOUT, ARG;

$ENTRY Go {
    = <OPEN 'w' 1 'inr/xi.mst'>
      <PUTOUT 1 ' <XI (' 
                ''
                'xi'
                <ARG 1>
                '.xsl'
                ''
                ')>;'
      >;
          }