<html>
  <head>
    <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
  </head>
  <body text="#000000" bgcolor="#FFFFFF">
    Further correction :<br>
    <br>
    <blockquote type="cite"
      cite="mid:06ac1727-25b6-943d-7538-503959951262@Rhul.Ac.Uk">
      <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
      This may help -- at least it generates no run-time errors :<br>
    </blockquote>
    <br>
    <blockquote type="cite"
      cite="mid:06ac1727-25b6-943d-7538-503959951262@Rhul.Ac.Uk">
      <meta name="qrichtext" content="1">
      <p style="-qt-paragraph-type:empty; margin-top:0px;
        margin-bottom:0px; margin-left:0px; margin-right:0px;
        -qt-block-indent:0; text-indent:0px;"><tt>
        </tt></p>
      <tt> </tt>
      <p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
        margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>
          \def \treatasteriskspecially </tt></p>
      <tt> </tt>
      <p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
        margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>    
          { % space needed here</tt></p>
      <tt> </tt>
      <p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
        margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>        
          \ifx *\nexttoken </tt></p>
      <tt> </tt>
      <p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
        margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>            
          \let \nexttoken = \item </tt></p>
      <tt> </tt>
      <p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
        margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>        
          \else </tt></p>
      <tt> </tt>
      <p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
        margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>            
          \def \nexttoken {\char `\*}^ but not here</tt></p>
      <tt> </tt>
      <p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
        margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>        
          \fi</tt></p>
      <tt> </tt>
      <p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
        margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>        
          \nexttoken </tt></p>
      <tt> </tt>
      <p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
        margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>    
          }</tt></p>
      <tt> </tt>
      <p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
        margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>
          \catcode `\^^M = \active \def ^^M{\futurelet \nexttoken
          \treatasteriskspecially}</tt></p>
      <tt> </tt>
      <p style="-qt-paragraph-type:empty; margin-top:0px;
        margin-bottom:0px; margin-left:0px; margin-right:0px;
        -qt-block-indent:0; text-indent:0px;"><tt>
        </tt></p>
      <tt> </tt>
      <p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
        margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>
          abcd * efgh</tt></p>
      <tt> </tt>
      <p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
        margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt> *
          ihjk * lmno</tt></p>
      <tt> </tt>
      <p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
        margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt> </tt></p>
      <tt> </tt>
      <p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
        margin-right:0px; -qt-block-indent:0; text-indent:0px;"><tt>
          \end</tt></p>
    </blockquote>
    <br>
  </body>
</html>