\expandafter\gdef\csname\the\maTHtok\endcsname{%
    \scriptfont0=\sevenrm \scriptfont1=\seveni
    \scriptfont2=\sevensy \scriptfont3=\tenex
    \scriptfont\bffam=\sevenbf
      \scriptscriptfont0=\fiverm \scriptscriptfont1=\fivei
      \scriptscriptfont2=\fivesy \scriptscriptfont3=\tenex
      \scriptscriptfont\bffam=\fivebf}%