;;; mkhtml.xom

CROSS-TRANSLATE
GLOBAL STREAM theAlpha

FIND-START
        SET BUFFER theAlpha to ""

FIND-END

FIND [LETTER or DIGIT]=theLetter [ANY EXCEPT "<"]+ [ANY EXCEPT "%n"]+=theLine "%n"
        OUTPUT "%x(theLetter)|%x(theLine)%n"