\endlinechar=-1
\def\p#1#2#3#4#5#6{\if#2#3#3\else#4\fi}
\newcount\i
\i=0
\loop
\ifnum\i<32
\read0 to \inputtext
\edef\outtext{\expandafter\p\inputtext}
\expandafter\write\expandafter0\expandafter{\outtext}
\advance\i by1
\repeat
\end