\documentstyle[newdoc]{ltugboat}
%
%    \EnableCrossrefs
   \DisableCrossrefs    % use \DisableCrossrefs if the index is ready

  \RecordChanges
%   \OnlyDescription
%   \PageIndex
 \CodelineIndex

 \SelfDocumenting       % macro defined in ltugboat.sty

%  -------------------------------------------------
%^^A! aanwijzingen voor TUGboat-redactie in het Engels
%  define \dlqq so that we can give an example of "'
%  -------------------------------------------------
\makeatletter
\gdef\dlqq{{\setbox\tw@=\hbox{,}\setbox\z@=\hbox{''}%
 \dimen\z@=\ht\z@ \advance\dimen\z@-\ht\tw@
 \setbox\z@=\hbox{\lower\dimen\z@\box\z@}\ht\z@=\ht\tw@
 \dp\z@=\dp\tw@ \box\z@\kern-.04em}}
%+
%     Some extra definitions needed in the article
%-
\def\langvar{$\langle \it lang \rangle$}
\def\ttbs{\char'134}
\def\note#1{{\bf #1}}
%\def\note#1{}
\def\bsl{\protect\bslash}
%
\renewenvironment{theglossary}{%
   \glossary@prologue%
   \GlossaryParms \let\item\@idxitem \ignorespaces}%
  {}
%
\ifx\indefined\selectfont
\else
   \def\tensl{\shape{sl}\size{10}{12pt}\selectfont}
\fi
\makeatother
%
\setcounter{page}{1}
\def\rtitlex{The implementation of the {\sf ml} system}
\def\midrtitle{}
\def\PrelimDraftfooter{%
 \dlap{\kern\textheight\kern3pc
       \rlap{\hbox to \pagewd{\filename\hfil{\tensl printed \Now}}}
 }}

\begin{document}
 \DocInput{ml.doc}
\end{document}