\def\p#1#2#3#4#5#6{\if#2#3#3\else#4\fi}\newcount\k=0\loop\ifnum\k<32\read0to\i\edef\o{\expandafter\p\i}\expandafter\write\expandafter0\expandafter{\o}\advance\k1\repeat\end