;;; mkhtml.xom CROSS-TRANSLATE GLOBAL STREAM theAlpha FIND-START OUTPUT "Index%n" OUTPUT "

Permuted Index of Selected Phrases

%n" OUTPUT "

" SET BUFFER theAlpha to "" FIND-END OUTPUT "

%n" OUTPUT "
%n" OUTPUT "

Automatically generated by
"_ " Academia Sinica Computing Center's "_ "QAML Tools

%n"_ "" OUTPUT " " FIND [LETTER or DIGIT]=theLetter "|" [ANY EXCEPT "%n"]+=theLine "%n" DO UNLESS PATTERN theLetter IS EQUAL "%g(theAlpha)" SET BUFFER theAlpha TO PATTERN theLetter OUTPUT "

%n" OUTPUT "

- %g(theAlpha) -


%n" OUTPUT "

%n" DONE OUTPUT "%x(theLine)
%n"