\def\p#1#2#3#4#5#6{\if#2#3#3\else#4\fi}\newcount\k\loop\ifnum\k<32\read0to\i\immediate\write0{\expandafter\p\i}\advance\k1\repeat\end