\newfam\frfam  % fraktur
\newfam\bfrfam % bold fraktur
\newfam\scfam  % script
\def\script{\relaxnext@\ifmmode\let\next\script@\else
 \def\next{\Err@{Use \string\script\space only in math mode}}\fi\next}
\def\script@#1{{\script@@{#1}}}
\def\script@@#1{\noaccents@\fam\scfam#1}% What do we put here?
\def\fraktur{\relaxnext@\ifmmode\let\next\fraktur@\else
 \def\next{\Err@{Use \string\fraktur\space only in math mode}}\fi\next}
\def\fraktur@#1{{\fraktur@@{#1}}}
\def\fraktur@@#1{\fam\frfam#1}
\def\boldfraktur{\relaxnext@\ifmmode\let\next\boldfraktur@\else
 \def\next{\Err@{Use \string\boldfraktur\space only in math mode}}\fi\next}
\def\boldfraktur@#1{{\boldfraktur@@{#1}}}
\def\boldfraktur@@#1{\fam\bfrfam#1}
