TeX: Merry TeXmas! ― Advent Calendar Finale

adventcal.tex

\relax \expandafter \expandafter \expandafter \relax \catcode \lq \z
\active \let \k \catcode \chardef \x \k \lq \ \endlinechar \x \let \z
\let \k \lq \@ \k \lq \x \z \y \relax \k \x \active \let \w \jobname \z
\y \k \lq \j \tw@ \k \lq \y \@ne \z \h \chardef \h \o \count \thr@@ \y
\h \siecle \o \h \annee 15 \toks@ \yy
\z \s \string \z \n \noexpand \z \i \count@ \def \jyj \zz \y \relax \z
\jz \h \c \the \x \the \o \i \c \z \p \advance \p \i \@ne \def \g \jyj
\z \e \expandafter \countdef \a \c \countdef \b \i \z \u \zz \z \@ \yz
\z \r \escapechar \i \r \r \m@ne \e \u \e \t \csname \s \multipl \s \y
\endcsname \immediate \openout \o \w \s \@ \r \i \z \q \lq \j \z \w \y
\a \siecle \b \annee \p \b \@ne \i \tw@ \t \i \i \h \iv \i \h \u \b \z
\y \ifx \u \c \b \o \p \a \@ne \fi \h \u \a \ifx \u \iv \a \o \fi \jzz
\def \jy\ifcase \a \o \or \@ne \or \tw@ \or \thr@@ \fi \g \jj \z \u \j
\edef \jy\h \siecle \u \h \annee \the \b \g \jj \relax \z \u \j \z \jz
\z \lq \yz \z \expandafter \yz \newlinechar \x \immediate \write \o \y
\yy\relax \expandafter \expandafter \expandafter \relax \catcode \lq \z
\active \let \k \catcode \chardef \x \k \lq \ \endlinechar \x \let \z
\let \k \lq \@ \k \lq \x \z \y \relax \k \x \active \let \w \jobname \z
\y \k \lq \j \tw@ \k \lq \y \@ne \z \h \chardef \h \o \count \thr@@ \y
\u \space \n \toks@ \yy\the \toks@ \g \jj \n \the \n \toks@ \end \jjzz
\let \z \let \z \expandafter \e \z \\ \n \z \lq \q \nopagenumbers \z \
\@ \@ \@ \@ \@ \@ \@ \@ \@ \@ \@ \@ \@ \@ \@ \@ \@ \@ \@ \@ \@ \@ \@ \
\@ \gdef \yy MERRY \TeX MAS! \jj \@ \gdef \jy See You Next Year! \jj \
\@ \@ \@ \@ \@ \@ \@ \@ \@ \@ \@ \@ \@ \@ \@ \@ \@ \@ \@ \@ \@ \@ \@ \
\z \@mx \y \z \@cu \j \i \iv \p \i \thr@@ \h \vii \i \z \y \@ \z \j \y
\a \siecle \t \a \c \p \a \annee \@ \b \a \divide \b \iv \p \a \b \jzz
\b \siecle \t \b \m@ne \p \a \b \@ \i \iv \p \i \@ne \p \a \i \b \a \y
\divide \b \vii \t \b \vii \t \b \m@ne \p \a \b \h \w \a \n \snowman \
\bgroup \r \m@ne \z \j \ignorespaces \z \b@ \leavevmode \n \comedian \
\z \ms@ \magstep \z \q \space \z \u \font \a \iv \p \a \iv \z \@ \n \y
\parskip \x \p@ \u \fd \s \cmti \the \x \q \s \scaled \ms@ \tw@ \yz \j
\i \iv \u \fx \s \cmfi \the \x \q \s \scaled \ms@ \i \\ \yz \@ \tex \y
\p \i \@ne \u \fa \s \cmssq \the \a \q \s \scaled \ms@ \i \\ \@ \wa \j
\dimen@ \thr@@ \s \em \p \i \vii \u \fc \s \cmr \the \i \yz \@ \are \y
\parindent \o \p@ \u \fb \s \cmcsc \the \x \q \s \scaled \ms@ \@ne \jz
\b@ \hbox \s \to \vii \dimen@ \bgroup \hss \fa \@mx \hss \egroup \j \y
\par \bigskip \z \@ \y \b@ \hbox \s \to \vii \dimen@ \bgroup \fb \@ \y
\s \de \s \c \s \em \s \ber \q \rq \i \annee \divide \i \x \h \u \i \j
\ifx \u \o \the \o \fi \the \annee \hss \egroup \par \smallskip \@ \jz
\@ \a \w \t \a \m@ne \p \a \@ne \@ \i \c \divide \i \iv \h \xxv \i \jz
\def \yy \u@ \hbox \s \to \dimen@ \bgroup \def \yy \jj \u@ \z \u \y \j
\u@ \edef \yy \romannumeral \a \jj \u@ \z \v \y \u@ \z \y \@ \u@ \@ \j
\ifx \u \v \hfil \else \h \u \a \ifx \u \xxv \fx \else \fd \fi \hss \y
\the \a \hss \fi \ifx \u \xxv \t \a \m@ne \global \a \a \fi \egroup \j
\p \a \@ne \jj \z \v \y \let \u@ \unskip \def \yy \texadvent \mmxv \zj
\def \yy \b@ \v \v \v \v \v \v \v \par \jj \z \u \yz \u \u \u \u \u \j
\b@ \hbox \s \to \vii \dimen@ \bgroup \hss \fc \@cu \unskip \egroup \j
\def \yy \@@@@@@@ \from \zr@texnobabbler \@@@@@@@ \jjz \par \egroup \j
\jj \the \toks@ \end \j