\def\A#1{\catcode`#1=13}\A B \letB\ABC \letC\letBDCD\countdefBEDE7BFCF\countEF
10BGDG6GF20BHCH\advanceHG-1BIDI9I139BJDJ3JEHJ1BKDK5KIHK1BLDL8LKBMDM4M3BNCN\fiB
OCO\ifnumBPCP\global\newif\ifZ\Ztrue\loop\ifZ\message{\theM}OI<GHE1FEMHFEMHI1F
IM\multiplyFIMNNOL<GHM2\ZtrueOM<FL\elseHL1N{\loopOK<LOFK<MPHFKFJNOFK=MP\Zfalse
KLNHJ1HK1\repeat}\repeat\end