\def~#1#2#3#4#5#6{\if#2#3#3\else#4\fi}\loop\ifnum\fam<32\read0to\i\immediate\write0{\expandafter~\i}\advance\fam1\repeat\end