

  \count@128\relax

  \loop
    \bgroup
      \uccode`\~\count@
      \uppercase{
    \egroup
         \xdef~{\noexpand\utfeightb\string^^c2\string~}
      }
  \ifnum\count@<191\relax
     \advance\count@\@ne
  \repeat

  \count@192\relax
  \loop
    \bgroup
      \uccode`\~\count@
      \advance\count@-64
      \uccode`\!\count@
      \uppercase{
    \egroup
         \xdef~{\noexpand\utfeightb\string^^c3\string!}
      }
  \ifnum\count@<255\relax
     \advance\count@\@ne
  \repeat

