
(SDEFUN |TMFORM;CorkFunc| (($ |HashTable| (|SingleInteger|) (|String|) "EQ"))
        (SPADCALL
         (LIST (CONS (SPADCALL 60 (QREFELT $ 8)) "<less>")
               (CONS (SPADCALL 62 (QREFELT $ 8)) "<gtr>")
               (CONS (SPADCALL 160 (QREFELT $ 8)) "<varspace>")
               (CONS (SPADCALL 162 (QREFELT $ 8)) "<cent>")
               (CONS (SPADCALL 163 (QREFELT $ 8)) "<sterling>")
               (CONS (SPADCALL 164 (QREFELT $ 8)) "<currency>")
               (CONS (SPADCALL 165 (QREFELT $ 8)) "<yen>")
               (CONS (SPADCALL 166 (QREFELT $ 8)) "<brokenvert>")
               (CONS (SPADCALL 169 (QREFELT $ 8)) "<copyright>")
               (CONS (SPADCALL 170 (QREFELT $ 8)) "<ordfeminine>")
               (CONS (SPADCALL 171 (QREFELT $ 8)) "<guillemotleft>")
               (CONS (SPADCALL 172 (QREFELT $ 8)) "<neg>")
               (CONS (SPADCALL 173 (QREFELT $ 8)) "<hyphen>")
               (CONS (SPADCALL 174 (QREFELT $ 8)) "<circledR>")
               (CONS (SPADCALL 176 (QREFELT $ 8)) "<degree>")
               (CONS (SPADCALL 177 (QREFELT $ 8)) "<pm>")
               (CONS (SPADCALL 178 (QREFELT $ 8)) "<twosuperior>")
               (CONS (SPADCALL 179 (QREFELT $ 8)) "<threesuperior>")
               (CONS (SPADCALL 181 (QREFELT $ 8)) "<mu>")
               (CONS (SPADCALL 182 (QREFELT $ 8)) "<paragraph>")
               (CONS (SPADCALL 183 (QREFELT $ 8)) "<centerdot>")
               (CONS (SPADCALL 185 (QREFELT $ 8)) "<onesuperior>")
               (CONS (SPADCALL 186 (QREFELT $ 8)) "<masculine>")
               (CONS (SPADCALL 188 (QREFELT $ 8)) "<onequarter>")
               (CONS (SPADCALL 189 (QREFELT $ 8)) "<onehalf>")
               (CONS (SPADCALL 190 (QREFELT $ 8)) "<threequarters>")
               (CONS (SPADCALL 215 (QREFELT $ 8)) "<times>")
               (CONS (SPADCALL 247 (QREFELT $ 8)) "<div>")
               (CONS (SPADCALL 8209 (QREFELT $ 8)) "<nbhyph>")
               (CONS (SPADCALL 8214 (QREFELT $ 8)) "<||>")
               (CONS (SPADCALL 8224 (QREFELT $ 8)) "<dagger>")
               (CONS (SPADCALL 8225 (QREFELT $ 8)) "<ddagger>")
               (CONS (SPADCALL 8226 (QREFELT $ 8)) "<bullet>")
               (CONS (SPADCALL 8230 (QREFELT $ 8)) "...")
               (CONS (SPADCALL 8242 (QREFELT $ 8)) "<prime>")
               (CONS (SPADCALL 8245 (QREFELT $ 8)) "<backprime>")
               (CONS (SPADCALL 8450 (QREFELT $ 8)) "<bbb-C>")
               (CONS (SPADCALL 8458 (QREFELT $ 8)) "<cal-g>")
               (CONS (SPADCALL 8459 (QREFELT $ 8)) "<cal-H>")
               (CONS (SPADCALL 8460 (QREFELT $ 8)) "<frak-H>")
               (CONS (SPADCALL 8461 (QREFELT $ 8)) "<bbb-H>")
               (CONS (SPADCALL 8463 (QREFELT $ 8)) "<hslash>")
               (CONS (SPADCALL 8464 (QREFELT $ 8)) "<cal-I>")
               (CONS (SPADCALL 8465 (QREFELT $ 8)) "<frak-I>")
               (CONS (SPADCALL 8466 (QREFELT $ 8)) "<cal-L>")
               (CONS (SPADCALL 8467 (QREFELT $ 8)) "<ell>")
               (CONS (SPADCALL 8469 (QREFELT $ 8)) "<bbb-N>")
               (CONS (SPADCALL 8472 (QREFELT $ 8)) "<wp>")
               (CONS (SPADCALL 8473 (QREFELT $ 8)) "<bbb-P>")
               (CONS (SPADCALL 8474 (QREFELT $ 8)) "<bbb-Q>")
               (CONS (SPADCALL 8475 (QREFELT $ 8)) "<cal-R>")
               (CONS (SPADCALL 8476 (QREFELT $ 8)) "<frak-R>")
               (CONS (SPADCALL 8477 (QREFELT $ 8)) "<bbb-R>")
               (CONS (SPADCALL 8482 (QREFELT $ 8)) "<trademark>")
               (CONS (SPADCALL 8484 (QREFELT $ 8)) "<bbb-Z>")
               (CONS (SPADCALL 8487 (QREFELT $ 8)) "<Mho>")
               (CONS (SPADCALL 8488 (QREFELT $ 8)) "<frak-Z>")
               (CONS (SPADCALL 8492 (QREFELT $ 8)) "<cal-B>")
               (CONS (SPADCALL 8493 (QREFELT $ 8)) "<frak-C>")
               (CONS (SPADCALL 8495 (QREFELT $ 8)) "<cal-e>")
               (CONS (SPADCALL 8496 (QREFELT $ 8)) "<cal-E>")
               (CONS (SPADCALL 8497 (QREFELT $ 8)) "<cal-F>")
               (CONS (SPADCALL 8499 (QREFELT $ 8)) "<cal-M>")
               (CONS (SPADCALL 8500 (QREFELT $ 8)) "<cal-o>")
               (CONS (SPADCALL 8501 (QREFELT $ 8)) "<aleph>")
               (CONS (SPADCALL 8502 (QREFELT $ 8)) "<beth>")
               (CONS (SPADCALL 8503 (QREFELT $ 8)) "<gimel>")
               (CONS (SPADCALL 8504 (QREFELT $ 8)) "<daleth>")
               (CONS (SPADCALL 8592 (QREFELT $ 8)) "<leftarrow>")
               (CONS (SPADCALL 8593 (QREFELT $ 8)) "<uparrow>")
               (CONS (SPADCALL 8594 (QREFELT $ 8)) "<rightarrow>")
               (CONS (SPADCALL 8595 (QREFELT $ 8)) "<downarrow>")
               (CONS (SPADCALL 8596 (QREFELT $ 8)) "<leftrightarrow>")
               (CONS (SPADCALL 8597 (QREFELT $ 8)) "<updownarrow>")
               (CONS (SPADCALL 8598 (QREFELT $ 8)) "<nwarrow>")
               (CONS (SPADCALL 8599 (QREFELT $ 8)) "<nearrow>")
               (CONS (SPADCALL 8600 (QREFELT $ 8)) "<searrow>")
               (CONS (SPADCALL 8601 (QREFELT $ 8)) "<swarrow>")
               (CONS (SPADCALL 8602 (QREFELT $ 8)) "<nleftarrow>")
               (CONS (SPADCALL 8603 (QREFELT $ 8)) "<nrightarrow>")
               (CONS (SPADCALL 8604 (QREFELT $ 8)) "<leftsquigarrow>")
               (CONS (SPADCALL 8605 (QREFELT $ 8)) "<rightsquigarrow>")
               (CONS (SPADCALL 8606 (QREFELT $ 8)) "<twoheadleftarrow>")
               (CONS (SPADCALL 8608 (QREFELT $ 8)) "<twoheadrightarrow>")
               (CONS (SPADCALL 8610 (QREFELT $ 8)) "<leftarrowtail>")
               (CONS (SPADCALL 8611 (QREFELT $ 8)) "<rightarrowtail>")
               (CONS (SPADCALL 8612 (QREFELT $ 8)) "<mapsfrom>")
               (CONS (SPADCALL 8614 (QREFELT $ 8)) "<mapsto>")
               (CONS (SPADCALL 8617 (QREFELT $ 8)) "<hookleftarrow>")
               (CONS (SPADCALL 8618 (QREFELT $ 8)) "<hookrightarrow>")
               (CONS (SPADCALL 8619 (QREFELT $ 8)) "<looparrowleft>")
               (CONS (SPADCALL 8620 (QREFELT $ 8)) "<looparrowright>")
               (CONS (SPADCALL 8621 (QREFELT $ 8)) "<leftrightsquigarrow>")
               (CONS (SPADCALL 8622 (QREFELT $ 8)) "<nleftrightarrow>")
               (CONS (SPADCALL 8623 (QREFELT $ 8)) "<lightning>")
               (CONS (SPADCALL 8624 (QREFELT $ 8)) "<Lsh>")
               (CONS (SPADCALL 8625 (QREFELT $ 8)) "<Rsh>")
               (CONS (SPADCALL 8630 (QREFELT $ 8)) "<curvearrowleft>")
               (CONS (SPADCALL 8631 (QREFELT $ 8)) "<curvearrowright>")
               (CONS (SPADCALL 8634 (QREFELT $ 8)) "<circlearrowleft>")
               (CONS (SPADCALL 8635 (QREFELT $ 8)) "<circlearrowright>")
               (CONS (SPADCALL 8636 (QREFELT $ 8)) "<leftharpoonup>")
               (CONS (SPADCALL 8637 (QREFELT $ 8)) "<leftharpoondown>")
               (CONS (SPADCALL 8638 (QREFELT $ 8)) "<upharpoonright>")
               (CONS (SPADCALL 8639 (QREFELT $ 8)) "<upharpoonleft>")
               (CONS (SPADCALL 8640 (QREFELT $ 8)) "<rightharpoonup>")
               (CONS (SPADCALL 8641 (QREFELT $ 8)) "<rightharpoondown>")
               (CONS (SPADCALL 8642 (QREFELT $ 8)) "<downharpoonright>")
               (CONS (SPADCALL 8643 (QREFELT $ 8)) "<downharpoonleft>")
               (CONS (SPADCALL 8644 (QREFELT $ 8)) "<rightleftarrows>")
               (CONS (SPADCALL 8646 (QREFELT $ 8)) "<leftrightarrows>")
               (CONS (SPADCALL 8647 (QREFELT $ 8)) "<leftleftarrows>")
               (CONS (SPADCALL 8648 (QREFELT $ 8)) "<upuparrows>")
               (CONS (SPADCALL 8649 (QREFELT $ 8)) "<rightrightarrows>")
               (CONS (SPADCALL 8650 (QREFELT $ 8)) "<downdownarrows>")
               (CONS (SPADCALL 8651 (QREFELT $ 8)) "<leftrightharpoons>")
               (CONS (SPADCALL 8652 (QREFELT $ 8)) "<rightleftharpoons>")
               (CONS (SPADCALL 8653 (QREFELT $ 8)) "<nLeftarrow>")
               (CONS (SPADCALL 8654 (QREFELT $ 8)) "<nLeftrightarrow>")
               (CONS (SPADCALL 8655 (QREFELT $ 8)) "<nRightarrow>")
               (CONS (SPADCALL 8656 (QREFELT $ 8)) "<Leftarrow>")
               (CONS (SPADCALL 8657 (QREFELT $ 8)) "<Uparrow>")
               (CONS (SPADCALL 8658 (QREFELT $ 8)) "<Rightarrow>")
               (CONS (SPADCALL 8659 (QREFELT $ 8)) "<Downarrow>")
               (CONS (SPADCALL 8660 (QREFELT $ 8)) "<Leftrightarrow>")
               (CONS (SPADCALL 8661 (QREFELT $ 8)) "<Updownarrow>")
               (CONS (SPADCALL 8666 (QREFELT $ 8)) "<Lleftarrow>")
               (CONS (SPADCALL 8667 (QREFELT $ 8)) "<Rrightarrow>")
               (CONS (SPADCALL 8704 (QREFELT $ 8)) "<forall>")
               (CONS (SPADCALL 8705 (QREFELT $ 8)) "<complement>")
               (CONS (SPADCALL 8706 (QREFELT $ 8)) "<partial>")
               (CONS (SPADCALL 8707 (QREFELT $ 8)) "<exists>")
               (CONS (SPADCALL 8708 (QREFELT $ 8)) "<nexists>")
               (CONS (SPADCALL 8709 (QREFELT $ 8)) "<emptyset>")
               (CONS (SPADCALL 8711 (QREFELT $ 8)) "<nabla>")
               (CONS (SPADCALL 8712 (QREFELT $ 8)) "<in>")
               (CONS (SPADCALL 8713 (QREFELT $ 8)) "<nin>")
               (CONS (SPADCALL 8715 (QREFELT $ 8)) "<ni>")
               (CONS (SPADCALL 8716 (QREFELT $ 8)) "<nni>")
               (CONS (SPADCALL 8719 (QREFELT $ 8)) "<big-prod>")
               (CONS (SPADCALL 8720 (QREFELT $ 8)) "<big-amalg>")
               (CONS (SPADCALL 8721 (QREFELT $ 8)) "<big-sum>")
               (CONS (SPADCALL 8722 (QREFELT $ 8)) "<minus>")
               (CONS (SPADCALL 8723 (QREFELT $ 8)) "<mp>")
               (CONS (SPADCALL 8724 (QREFELT $ 8)) "<dotplus>")
               (CONS (SPADCALL 8726 (QREFELT $ 8)) "<setminus>")
               (CONS (SPADCALL 8727 (QREFELT $ 8)) "<ast>")
               (CONS (SPADCALL 8728 (QREFELT $ 8)) "<circ>")
               (CONS (SPADCALL 8730 (QREFELT $ 8)) "<sqrt>")
               (CONS (SPADCALL 8733 (QREFELT $ 8)) "<propto>")
               (CONS (SPADCALL 8734 (QREFELT $ 8)) "<infty>")
               (CONS (SPADCALL 8736 (QREFELT $ 8)) "<angle>")
               (CONS (SPADCALL 8737 (QREFELT $ 8)) "<measuredangle>")
               (CONS (SPADCALL 8738 (QREFELT $ 8)) "<sphericalangle>")
               (CONS (SPADCALL 8739 (QREFELT $ 8)) "<mid>")
               (CONS (SPADCALL 8740 (QREFELT $ 8)) "<nmid>")
               (CONS (SPADCALL 8741 (QREFELT $ 8)) "<parallel>")
               (CONS (SPADCALL 8742 (QREFELT $ 8)) "<nparallel>")
               (CONS (SPADCALL 8743 (QREFELT $ 8)) "<wedge>")
               (CONS (SPADCALL 8744 (QREFELT $ 8)) "<vee>")
               (CONS (SPADCALL 8745 (QREFELT $ 8)) "<cap>")
               (CONS (SPADCALL 8746 (QREFELT $ 8)) "<cup>")
               (CONS (SPADCALL 8747 (QREFELT $ 8)) "<big-int>")
               (CONS (SPADCALL 8750 (QREFELT $ 8)) "<big-oint>")
               (CONS (SPADCALL 8756 (QREFELT $ 8)) "<therefore>")
               (CONS (SPADCALL 8757 (QREFELT $ 8)) "<because>")
               (CONS (SPADCALL 8764 (QREFELT $ 8)) "<sim>")
               (CONS (SPADCALL 8765 (QREFELT $ 8)) "<backsim>")
               (CONS (SPADCALL 8768 (QREFELT $ 8)) "<wr>")
               (CONS (SPADCALL 8769 (QREFELT $ 8)) "<nsim>")
               (CONS (SPADCALL 8770 (QREFELT $ 8)) "<eqsim>")
               (CONS (SPADCALL 8771 (QREFELT $ 8)) "<simeq>")
               (CONS (SPADCALL 8772 (QREFELT $ 8)) "<nsimeq>")
               (CONS (SPADCALL 8773 (QREFELT $ 8)) "<cong>")
               (CONS (SPADCALL 8775 (QREFELT $ 8)) "<ncong>")
               (CONS (SPADCALL 8776 (QREFELT $ 8)) "<approx>")
               (CONS (SPADCALL 8777 (QREFELT $ 8)) "<napprox>")
               (CONS (SPADCALL 8778 (QREFELT $ 8)) "<approxeq>")
               (CONS (SPADCALL 8781 (QREFELT $ 8)) "<asymp>")
               (CONS (SPADCALL 8782 (QREFELT $ 8)) "<Bumpeq>")
               (CONS (SPADCALL 8783 (QREFELT $ 8)) "<bumpeq>")
               (CONS (SPADCALL 8784 (QREFELT $ 8)) "<doteq>")
               (CONS (SPADCALL 8785 (QREFELT $ 8)) "<doteqdot>")
               (CONS (SPADCALL 8786 (QREFELT $ 8)) "<fallingdoteq>")
               (CONS (SPADCALL 8787 (QREFELT $ 8)) "<risingdoteq>")
               (CONS (SPADCALL 8788 (QREFELT $ 8)) "<assign>")
               (CONS (SPADCALL 8790 (QREFELT $ 8)) "<eqcirc>")
               (CONS (SPADCALL 8791 (QREFELT $ 8)) "<circeq>")
               (CONS (SPADCALL 8796 (QREFELT $ 8)) "<triangleq>")
               (CONS (SPADCALL 8800 (QREFELT $ 8)) "<neq>")
               (CONS (SPADCALL 8801 (QREFELT $ 8)) "<equiv>")
               (CONS (SPADCALL 8802 (QREFELT $ 8)) "<nequiv>")
               (CONS (SPADCALL 8804 (QREFELT $ 8)) "<leq>")
               (CONS (SPADCALL 8805 (QREFELT $ 8)) "<geq>")
               (CONS (SPADCALL 8806 (QREFELT $ 8)) "<leqq>")
               (CONS (SPADCALL 8807 (QREFELT $ 8)) "<geqq>")
               (CONS (SPADCALL 8808 (QREFELT $ 8)) "<lneqq>")
               (CONS (SPADCALL 8809 (QREFELT $ 8)) "<gneqq>")
               (CONS (SPADCALL 8810 (QREFELT $ 8)) "<ll>")
               (CONS (SPADCALL 8811 (QREFELT $ 8)) "<gg>")
               (CONS (SPADCALL 8812 (QREFELT $ 8)) "<between>")
               (CONS (SPADCALL 8813 (QREFELT $ 8)) "<nasymp>")
               (CONS (SPADCALL 8814 (QREFELT $ 8)) "<nless>")
               (CONS (SPADCALL 8815 (QREFELT $ 8)) "<ngtr>")
               (CONS (SPADCALL 8816 (QREFELT $ 8)) "<nleq>")
               (CONS (SPADCALL 8817 (QREFELT $ 8)) "<ngeq>")
               (CONS (SPADCALL 8818 (QREFELT $ 8)) "<lesssim>")
               (CONS (SPADCALL 8819 (QREFELT $ 8)) "<gtrsim>")
               (CONS (SPADCALL 8822 (QREFELT $ 8)) "<lessgtr>")
               (CONS (SPADCALL 8823 (QREFELT $ 8)) "<gtrless>")
               (CONS (SPADCALL 8826 (QREFELT $ 8)) "<prec>")
               (CONS (SPADCALL 8827 (QREFELT $ 8)) "<succ>")
               (CONS (SPADCALL 8828 (QREFELT $ 8)) "<preccurlyeq>")
               (CONS (SPADCALL 8829 (QREFELT $ 8)) "<succcurlyeq>")
               (CONS (SPADCALL 8830 (QREFELT $ 8)) "<precsim>")
               (CONS (SPADCALL 8831 (QREFELT $ 8)) "<succsim>")
               (CONS (SPADCALL 8832 (QREFELT $ 8)) "<nprec>")
               (CONS (SPADCALL 8833 (QREFELT $ 8)) "<nsucc>")
               (CONS (SPADCALL 8834 (QREFELT $ 8)) "<subset>")
               (CONS (SPADCALL 8835 (QREFELT $ 8)) "<supset>")
               (CONS (SPADCALL 8836 (QREFELT $ 8)) "<nsubset>")
               (CONS (SPADCALL 8837 (QREFELT $ 8)) "<nsupset>")
               (CONS (SPADCALL 8838 (QREFELT $ 8)) "<subseteq>")
               (CONS (SPADCALL 8839 (QREFELT $ 8)) "<supseteq>")
               (CONS (SPADCALL 8840 (QREFELT $ 8)) "<nsubseteq>")
               (CONS (SPADCALL 8841 (QREFELT $ 8)) "<nsupseteq>")
               (CONS (SPADCALL 8842 (QREFELT $ 8)) "<subsetneq>")
               (CONS (SPADCALL 8843 (QREFELT $ 8)) "<supsetneq>")
               (CONS (SPADCALL 8846 (QREFELT $ 8)) "<uplus>")
               (CONS (SPADCALL 8847 (QREFELT $ 8)) "<sqsubset>")
               (CONS (SPADCALL 8848 (QREFELT $ 8)) "<sqsupset>")
               (CONS (SPADCALL 8849 (QREFELT $ 8)) "<sqsubseteq>")
               (CONS (SPADCALL 8850 (QREFELT $ 8)) "<sqsupseteq>")
               (CONS (SPADCALL 8851 (QREFELT $ 8)) "<sqcap>")
               (CONS (SPADCALL 8852 (QREFELT $ 8)) "<sqcup>")
               (CONS (SPADCALL 8853 (QREFELT $ 8)) "<varoplus>")
               (CONS (SPADCALL 8854 (QREFELT $ 8)) "<varominus>")
               (CONS (SPADCALL 8855 (QREFELT $ 8)) "<varotimes>")
               (CONS (SPADCALL 8856 (QREFELT $ 8)) "<varoslash>")
               (CONS (SPADCALL 8857 (QREFELT $ 8)) "<varodot>")
               (CONS (SPADCALL 8858 (QREFELT $ 8)) "<varocircle>")
               (CONS (SPADCALL 8859 (QREFELT $ 8)) "<varoast>")
               (CONS (SPADCALL 8861 (QREFELT $ 8)) "<circleddash>")
               (CONS (SPADCALL 8862 (QREFELT $ 8)) "<boxplus>")
               (CONS (SPADCALL 8863 (QREFELT $ 8)) "<boxminus>")
               (CONS (SPADCALL 8864 (QREFELT $ 8)) "<boxtimes>")
               (CONS (SPADCALL 8865 (QREFELT $ 8)) "<boxdot>")
               (CONS (SPADCALL 8866 (QREFELT $ 8)) "<vdash>")
               (CONS (SPADCALL 8867 (QREFELT $ 8)) "<dashv>")
               (CONS (SPADCALL 8868 (QREFELT $ 8)) "<top>")
               (CONS (SPADCALL 8869 (QREFELT $ 8)) "<bot>")
               (CONS (SPADCALL 8871 (QREFELT $ 8)) "<models>")
               (CONS (SPADCALL 8872 (QREFELT $ 8)) "<vDash>")
               (CONS (SPADCALL 8873 (QREFELT $ 8)) "<Vdash>")
               (CONS (SPADCALL 8874 (QREFELT $ 8)) "<Vvdash>")
               (CONS (SPADCALL 8876 (QREFELT $ 8)) "<nvdash>")
               (CONS (SPADCALL 8877 (QREFELT $ 8)) "<nvDash>")
               (CONS (SPADCALL 8878 (QREFELT $ 8)) "<nVdash>")
               (CONS (SPADCALL 8879 (QREFELT $ 8)) "<nVDash>")
               (CONS (SPADCALL 8882 (QREFELT $ 8)) "<vartriangleleft>")
               (CONS (SPADCALL 8883 (QREFELT $ 8)) "<vartriangleright>")
               (CONS (SPADCALL 8884 (QREFELT $ 8)) "<trianglelefteq>")
               (CONS (SPADCALL 8885 (QREFELT $ 8)) "<trianglerighteq>")
               (CONS (SPADCALL 8888 (QREFELT $ 8)) "<multimap>")
               (CONS (SPADCALL 8890 (QREFELT $ 8)) "<intercal>")
               (CONS (SPADCALL 8891 (QREFELT $ 8)) "<veebar>")
               (CONS (SPADCALL 8896 (QREFELT $ 8)) "<big-wedge>")
               (CONS (SPADCALL 8897 (QREFELT $ 8)) "<big-vee>")
               (CONS (SPADCALL 8898 (QREFELT $ 8)) "<big-cap>")
               (CONS (SPADCALL 8899 (QREFELT $ 8)) "<big-cup>")
               (CONS (SPADCALL 8900 (QREFELT $ 8)) "<diamond>")
               (CONS (SPADCALL 8901 (QREFELT $ 8)) "<cdot>")
               (CONS (SPADCALL 8902 (QREFELT $ 8)) "<star>")
               (CONS (SPADCALL 8903 (QREFELT $ 8)) "<divideontimes>")
               (CONS (SPADCALL 8904 (QREFELT $ 8)) "<join>")
               (CONS (SPADCALL 8905 (QREFELT $ 8)) "<ltimes>")
               (CONS (SPADCALL 8906 (QREFELT $ 8)) "<rtimes>")
               (CONS (SPADCALL 8907 (QREFELT $ 8)) "<leftthreetimes>")
               (CONS (SPADCALL 8908 (QREFELT $ 8)) "<rightthreetimes>")
               (CONS (SPADCALL 8909 (QREFELT $ 8)) "<backsimeq>")
               (CONS (SPADCALL 8910 (QREFELT $ 8)) "<curlyvee>")
               (CONS (SPADCALL 8911 (QREFELT $ 8)) "<curlywedge>")
               (CONS (SPADCALL 8912 (QREFELT $ 8)) "<Subset>")
               (CONS (SPADCALL 8913 (QREFELT $ 8)) "<Supset>")
               (CONS (SPADCALL 8914 (QREFELT $ 8)) "<Cap>")
               (CONS (SPADCALL 8915 (QREFELT $ 8)) "<Cup>")
               (CONS (SPADCALL 8916 (QREFELT $ 8)) "<pitchfork>")
               (CONS (SPADCALL 8918 (QREFELT $ 8)) "<lessdot>")
               (CONS (SPADCALL 8919 (QREFELT $ 8)) "<gtrdot>")
               (CONS (SPADCALL 8920 (QREFELT $ 8)) "<lll>")
               (CONS (SPADCALL 8921 (QREFELT $ 8)) "<ggg>")
               (CONS (SPADCALL 8922 (QREFELT $ 8)) "<lesseqgtr>")
               (CONS (SPADCALL 8923 (QREFELT $ 8)) "<gtreqless>")
               (CONS (SPADCALL 8926 (QREFELT $ 8)) "<curlyeqprec>")
               (CONS (SPADCALL 8927 (QREFELT $ 8)) "<curlyeqsucc>")
               (CONS (SPADCALL 8928 (QREFELT $ 8)) "<npreccurlyeq>")
               (CONS (SPADCALL 8929 (QREFELT $ 8)) "<nsucccurlyeq>")
               (CONS (SPADCALL 8930 (QREFELT $ 8)) "<nsqsubseteq>")
               (CONS (SPADCALL 8931 (QREFELT $ 8)) "<nsqsupseteq>")
               (CONS (SPADCALL 8934 (QREFELT $ 8)) "<lnsim>")
               (CONS (SPADCALL 8935 (QREFELT $ 8)) "<gnsim>")
               (CONS (SPADCALL 8936 (QREFELT $ 8)) "<precnsim>")
               (CONS (SPADCALL 8937 (QREFELT $ 8)) "<succnsim>")
               (CONS (SPADCALL 8938 (QREFELT $ 8)) "<ntriangleleft>")
               (CONS (SPADCALL 8939 (QREFELT $ 8)) "<ntriangleright>")
               (CONS (SPADCALL 8940 (QREFELT $ 8)) "<ntrianglelefteq>")
               (CONS (SPADCALL 8941 (QREFELT $ 8)) "<ntrianglerighteq>")
               (CONS (SPADCALL 8942 (QREFELT $ 8)) "<vdots>")
               (CONS (SPADCALL 8943 (QREFELT $ 8)) "<cdots>")
               (CONS (SPADCALL 8944 (QREFELT $ 8)) "<udots>")
               (CONS (SPADCALL 8945 (QREFELT $ 8)) "<ddots>")
               (CONS (SPADCALL 8960 (QREFELT $ 8)) "<diameter>")
               (CONS (SPADCALL 8965 (QREFELT $ 8)) "<barwedge>")
               (CONS (SPADCALL 8966 (QREFELT $ 8)) "<doublebarwedge>")
               (CONS (SPADCALL 8968 (QREFELT $ 8)) "<lceil>")
               (CONS (SPADCALL 8969 (QREFELT $ 8)) "<rceil>")
               (CONS (SPADCALL 8970 (QREFELT $ 8)) "<lfloor>")
               (CONS (SPADCALL 8971 (QREFELT $ 8)) "<rfloor>")
               (CONS (SPADCALL 8976 (QREFELT $ 8)) "<invneg>")
               (CONS (SPADCALL 8981 (QREFELT $ 8)) "<recorder>")
               (CONS (SPADCALL 8988 (QREFELT $ 8)) "<ulcorner>")
               (CONS (SPADCALL 8989 (QREFELT $ 8)) "<urcorner>")
               (CONS (SPADCALL 8990 (QREFELT $ 8)) "<llcorner>")
               (CONS (SPADCALL 8991 (QREFELT $ 8)) "<lrcorner>")
               (CONS (SPADCALL 8994 (QREFELT $ 8)) "<frown>")
               (CONS (SPADCALL 8995 (QREFELT $ 8)) "<smile>")
               (CONS (SPADCALL 9016 (QREFELT $ 8)) "<talloblong>")
               (CONS (SPADCALL 9031 (QREFELT $ 8)) "<APLleftarrowbox>")
               (CONS (SPADCALL 9032 (QREFELT $ 8)) "<APLrightarrowbox>")
               (CONS (SPADCALL 9040 (QREFELT $ 8)) "<APLuparrowbox>")
               (CONS (SPADCALL 9047 (QREFELT $ 8)) "<APLdownarrowbox>")
               (CONS (SPADCALL 9054 (QREFELT $ 8)) "<APLinput>")
               (CONS (SPADCALL 9109 (QREFELT $ 8)) "<APLbox>")
               (CONS (SPADCALL 9416 (QREFELT $ 8)) "<circledS>")
               (CONS (SPADCALL 9632 (QREFELT $ 8)) "<blacksquare>")
               (CONS (SPADCALL 9633 (QREFELT $ 8)) "<Square>")
               (CONS (SPADCALL 9647 (QREFELT $ 8)) "<oblong>")
               (CONS (SPADCALL 9651 (QREFELT $ 8)) "<bigtriangleup>")
               (CONS (SPADCALL 9652 (QREFELT $ 8)) "<blacktriangle>")
               (CONS (SPADCALL 9653 (QREFELT $ 8)) "<vartriangle>")
               (CONS (SPADCALL 9656 (QREFELT $ 8)) "<blacktriangleright>")
               (CONS (SPADCALL 9657 (QREFELT $ 8)) "<triangleright>")
               (CONS (SPADCALL 9661 (QREFELT $ 8)) "<bigtriangledown>")
               (CONS (SPADCALL 9662 (QREFELT $ 8)) "<blacktriangledown>")
               (CONS (SPADCALL 9663 (QREFELT $ 8)) "<triangledown>")
               (CONS (SPADCALL 9666 (QREFELT $ 8)) "<blacktriangleleft>")
               (CONS (SPADCALL 9667 (QREFELT $ 8)) "<triangleleft>")
               (CONS (SPADCALL 9671 (QREFELT $ 8)) "<wasyDiamond>")
               (CONS (SPADCALL 9674 (QREFELT $ 8)) "<lozenge>")
               (CONS (SPADCALL 9675 (QREFELT $ 8)) "<Circle>")
               (CONS (SPADCALL 9679 (QREFELT $ 8)) "<CIRCLE>")
               (CONS (SPADCALL 9680 (QREFELT $ 8)) "<LEFTcircle>")
               (CONS (SPADCALL 9681 (QREFELT $ 8)) "<RIGHTcircle>")
               (CONS (SPADCALL 9686 (QREFELT $ 8)) "<LEFTCIRCLE>")
               (CONS (SPADCALL 9687 (QREFELT $ 8)) "<RIGHTCIRCLE>")
               (CONS (SPADCALL 9711 (QREFELT $ 8)) "<varbigcirc>")
               (CONS (SPADCALL 9725 (QREFELT $ 8)) "<square>")
               (CONS (SPADCALL 9733 (QREFELT $ 8)) "<bigstar>")
               (CONS (SPADCALL 9737 (QREFELT $ 8)) "<astrosun>")
               (CONS (SPADCALL 9738 (QREFELT $ 8)) "<ascnode>")
               (CONS (SPADCALL 9739 (QREFELT $ 8)) "<descnode>")
               (CONS (SPADCALL 9740 (QREFELT $ 8)) "<conjunction>")
               (CONS (SPADCALL 9741 (QREFELT $ 8)) "<opposition>")
               (CONS (SPADCALL 9742 (QREFELT $ 8)) "<phone>")
               (CONS (SPADCALL 9745 (QREFELT $ 8)) "<XBox>")
               (CONS (SPADCALL 9746 (QREFELT $ 8)) "<CheckedBox>")
               (CONS (SPADCALL 9785 (QREFELT $ 8)) "<frownie>")
               (CONS (SPADCALL 9786 (QREFELT $ 8)) "<smiley>")
               (CONS (SPADCALL 9787 (QREFELT $ 8)) "<blacksmiley>")
               (CONS (SPADCALL 9788 (QREFELT $ 8)) "<sun>")
               (CONS (SPADCALL 9789 (QREFELT $ 8)) "<rightmoon>")
               (CONS (SPADCALL 9790 (QREFELT $ 8)) "<leftmoon>")
               (CONS (SPADCALL 9791 (QREFELT $ 8)) "<mercury>")
               (CONS (SPADCALL 9792 (QREFELT $ 8)) "<female>")
               (CONS (SPADCALL 9793 (QREFELT $ 8)) "<earth>")
               (CONS (SPADCALL 9794 (QREFELT $ 8)) "<male>")
               (CONS (SPADCALL 9795 (QREFELT $ 8)) "<jupiter>")
               (CONS (SPADCALL 9796 (QREFELT $ 8)) "<saturn>")
               (CONS (SPADCALL 9797 (QREFELT $ 8)) "<uranus>")
               (CONS (SPADCALL 9798 (QREFELT $ 8)) "<neptune>")
               (CONS (SPADCALL 9799 (QREFELT $ 8)) "<pluto>")
               (CONS (SPADCALL 9800 (QREFELT $ 8)) "<aries>")
               (CONS (SPADCALL 9801 (QREFELT $ 8)) "<taurus>")
               (CONS (SPADCALL 9802 (QREFELT $ 8)) "<gemini>")
               (CONS (SPADCALL 9803 (QREFELT $ 8)) "<cancer>")
               (CONS (SPADCALL 9804 (QREFELT $ 8)) "<leo>")
               (CONS (SPADCALL 9805 (QREFELT $ 8)) "<virgo>")
               (CONS (SPADCALL 9806 (QREFELT $ 8)) "<libra>")
               (CONS (SPADCALL 9807 (QREFELT $ 8)) "<scorpio>")
               (CONS (SPADCALL 9808 (QREFELT $ 8)) "<sagittarius>")
               (CONS (SPADCALL 9809 (QREFELT $ 8)) "<capricornus>")
               (CONS (SPADCALL 9810 (QREFELT $ 8)) "<aquarius>")
               (CONS (SPADCALL 9811 (QREFELT $ 8)) "<pisces>")
               (CONS (SPADCALL 9824 (QREFELT $ 8)) "<spadesuit>")
               (CONS (SPADCALL 9827 (QREFELT $ 8)) "<clubsuit>")
               (CONS (SPADCALL 9829 (QREFELT $ 8)) "<heartsuit>")
               (CONS (SPADCALL 9830 (QREFELT $ 8)) "<diamondsuit>")
               (CONS (SPADCALL 9833 (QREFELT $ 8)) "<quarternote>")
               (CONS (SPADCALL 9834 (QREFELT $ 8)) "<eighthnote>")
               (CONS (SPADCALL 9835 (QREFELT $ 8)) "<twonotes>")
               (CONS (SPADCALL 9837 (QREFELT $ 8)) "<flat>")
               (CONS (SPADCALL 9838 (QREFELT $ 8)) "<natural>")
               (CONS (SPADCALL 9839 (QREFELT $ 8)) "<sharp>")
               (CONS (SPADCALL 10003 (QREFELT $ 8)) "<checkmark>")
               (CONS (SPADCALL 913 (QREFELT $ 8)) "<Alpha>")
               (CONS (SPADCALL 914 (QREFELT $ 8)) "<Beta>")
               (CONS (SPADCALL 915 (QREFELT $ 8)) "<Gamma>")
               (CONS (SPADCALL 916 (QREFELT $ 8)) "<Delta>")
               (CONS (SPADCALL 917 (QREFELT $ 8)) "<Epsilon>")
               (CONS (SPADCALL 918 (QREFELT $ 8)) "<Zeta>")
               (CONS (SPADCALL 919 (QREFELT $ 8)) "<Eta>")
               (CONS (SPADCALL 920 (QREFELT $ 8)) "<Theta>")
               (CONS (SPADCALL 921 (QREFELT $ 8)) "<Iota>")
               (CONS (SPADCALL 922 (QREFELT $ 8)) "<Kappa>")
               (CONS (SPADCALL 923 (QREFELT $ 8)) "<Lambda>")
               (CONS (SPADCALL 924 (QREFELT $ 8)) "<Mu>")
               (CONS (SPADCALL 925 (QREFELT $ 8)) "<Nu>")
               (CONS (SPADCALL 926 (QREFELT $ 8)) "<Xi>")
               (CONS (SPADCALL 927 (QREFELT $ 8)) "<Omicron>")
               (CONS (SPADCALL 928 (QREFELT $ 8)) "<Pi>")
               (CONS (SPADCALL 929 (QREFELT $ 8)) "<Rho>")
               (CONS (SPADCALL 931 (QREFELT $ 8)) "<Sigma>")
               (CONS (SPADCALL 932 (QREFELT $ 8)) "<Tau>")
               (CONS (SPADCALL 933 (QREFELT $ 8)) "<Upsilon>")
               (CONS (SPADCALL 934 (QREFELT $ 8)) "<Phi>")
               (CONS (SPADCALL 935 (QREFELT $ 8)) "<Chi>")
               (CONS (SPADCALL 936 (QREFELT $ 8)) "<Psi>")
               (CONS (SPADCALL 937 (QREFELT $ 8)) "<Omega>")
               (CONS (SPADCALL 945 (QREFELT $ 8)) "<alpha>")
               (CONS (SPADCALL 946 (QREFELT $ 8)) "<beta>")
               (CONS (SPADCALL 947 (QREFELT $ 8)) "<gamma>")
               (CONS (SPADCALL 948 (QREFELT $ 8)) "<delta>")
               (CONS (SPADCALL 949 (QREFELT $ 8)) "<varepsilon>")
               (CONS (SPADCALL 950 (QREFELT $ 8)) "<zeta>")
               (CONS (SPADCALL 951 (QREFELT $ 8)) "<eta>")
               (CONS (SPADCALL 952 (QREFELT $ 8)) "<theta>")
               (CONS (SPADCALL 953 (QREFELT $ 8)) "<iota>")
               (CONS (SPADCALL 954 (QREFELT $ 8)) "<kappa>")
               (CONS (SPADCALL 955 (QREFELT $ 8)) "<lambda>")
               (CONS (SPADCALL 956 (QREFELT $ 8)) "<mu>")
               (CONS (SPADCALL 957 (QREFELT $ 8)) "<nu>")
               (CONS (SPADCALL 958 (QREFELT $ 8)) "<xi>")
               (CONS (SPADCALL 959 (QREFELT $ 8)) "<omicron>")
               (CONS (SPADCALL 960 (QREFELT $ 8)) "<pi>")
               (CONS (SPADCALL 961 (QREFELT $ 8)) "<rho>")
               (CONS (SPADCALL 962 (QREFELT $ 8)) "<varsigma>")
               (CONS (SPADCALL 963 (QREFELT $ 8)) "<sigma>")
               (CONS (SPADCALL 964 (QREFELT $ 8)) "<tau>")
               (CONS (SPADCALL 965 (QREFELT $ 8)) "<upsilon>")
               (CONS (SPADCALL 966 (QREFELT $ 8)) "<varphi>")
               (CONS (SPADCALL 967 (QREFELT $ 8)) "<chi>")
               (CONS (SPADCALL 968 (QREFELT $ 8)) "<psi>")
               (CONS (SPADCALL 969 (QREFELT $ 8)) "<omega>")
               (CONS (SPADCALL 977 (QREFELT $ 8)) "<vartheta>")
               (CONS (SPADCALL 981 (QREFELT $ 8)) "<phi>")
               (CONS (SPADCALL 982 (QREFELT $ 8)) "<varpi>")
               (CONS (SPADCALL 989 (QREFELT $ 8)) "<digamma>")
               (CONS (SPADCALL 1008 (QREFELT $ 8)) "<varkappa>")
               (CONS (SPADCALL 1009 (QREFELT $ 8)) "<varrho>")
               (CONS (SPADCALL 1013 (QREFELT $ 8)) "<epsilon>")
               (CONS (SPADCALL 65309 (QREFELT $ 8)) "<longequal>")
               (CONS (SPADCALL 119808 (QREFELT $ 8)) "<b-up-A>")
               (CONS (SPADCALL 119809 (QREFELT $ 8)) "<b-up-B>")
               (CONS (SPADCALL 119810 (QREFELT $ 8)) "<b-up-C>")
               (CONS (SPADCALL 119811 (QREFELT $ 8)) "<b-up-D>")
               (CONS (SPADCALL 119812 (QREFELT $ 8)) "<b-up-E>")
               (CONS (SPADCALL 119813 (QREFELT $ 8)) "<b-up-F>")
               (CONS (SPADCALL 119814 (QREFELT $ 8)) "<b-up-G>")
               (CONS (SPADCALL 119815 (QREFELT $ 8)) "<b-up-H>")
               (CONS (SPADCALL 119816 (QREFELT $ 8)) "<b-up-I>")
               (CONS (SPADCALL 119817 (QREFELT $ 8)) "<b-up-J>")
               (CONS (SPADCALL 119818 (QREFELT $ 8)) "<b-up-K>")
               (CONS (SPADCALL 119819 (QREFELT $ 8)) "<b-up-L>")
               (CONS (SPADCALL 119820 (QREFELT $ 8)) "<b-up-M>")
               (CONS (SPADCALL 119821 (QREFELT $ 8)) "<b-up-N>")
               (CONS (SPADCALL 119822 (QREFELT $ 8)) "<b-up-O>")
               (CONS (SPADCALL 119823 (QREFELT $ 8)) "<b-up-P>")
               (CONS (SPADCALL 119824 (QREFELT $ 8)) "<b-up-Q>")
               (CONS (SPADCALL 119825 (QREFELT $ 8)) "<b-up-R>")
               (CONS (SPADCALL 119826 (QREFELT $ 8)) "<b-up-S>")
               (CONS (SPADCALL 119827 (QREFELT $ 8)) "<b-up-T>")
               (CONS (SPADCALL 119828 (QREFELT $ 8)) "<b-up-U>")
               (CONS (SPADCALL 119829 (QREFELT $ 8)) "<b-up-V>")
               (CONS (SPADCALL 119830 (QREFELT $ 8)) "<b-up-W>")
               (CONS (SPADCALL 119831 (QREFELT $ 8)) "<b-up-X>")
               (CONS (SPADCALL 119832 (QREFELT $ 8)) "<b-up-Y>")
               (CONS (SPADCALL 119833 (QREFELT $ 8)) "<b-up-Z>")
               (CONS (SPADCALL 119834 (QREFELT $ 8)) "<b-up-a>")
               (CONS (SPADCALL 119835 (QREFELT $ 8)) "<b-up-b>")
               (CONS (SPADCALL 119836 (QREFELT $ 8)) "<b-up-c>")
               (CONS (SPADCALL 119837 (QREFELT $ 8)) "<b-up-d>")
               (CONS (SPADCALL 119838 (QREFELT $ 8)) "<b-up-e>")
               (CONS (SPADCALL 119839 (QREFELT $ 8)) "<b-up-f>")
               (CONS (SPADCALL 119840 (QREFELT $ 8)) "<b-up-g>")
               (CONS (SPADCALL 119841 (QREFELT $ 8)) "<b-up-h>")
               (CONS (SPADCALL 119842 (QREFELT $ 8)) "<b-up-i>")
               (CONS (SPADCALL 119843 (QREFELT $ 8)) "<b-up-j>")
               (CONS (SPADCALL 119844 (QREFELT $ 8)) "<b-up-k>")
               (CONS (SPADCALL 119845 (QREFELT $ 8)) "<b-up-l>")
               (CONS (SPADCALL 119846 (QREFELT $ 8)) "<b-up-m>")
               (CONS (SPADCALL 119847 (QREFELT $ 8)) "<b-up-n>")
               (CONS (SPADCALL 119848 (QREFELT $ 8)) "<b-up-o>")
               (CONS (SPADCALL 119849 (QREFELT $ 8)) "<b-up-p>")
               (CONS (SPADCALL 119850 (QREFELT $ 8)) "<b-up-q>")
               (CONS (SPADCALL 119851 (QREFELT $ 8)) "<b-up-r>")
               (CONS (SPADCALL 119852 (QREFELT $ 8)) "<b-up-s>")
               (CONS (SPADCALL 119853 (QREFELT $ 8)) "<b-up-t>")
               (CONS (SPADCALL 119854 (QREFELT $ 8)) "<b-up-u>")
               (CONS (SPADCALL 119855 (QREFELT $ 8)) "<b-up-v>")
               (CONS (SPADCALL 119856 (QREFELT $ 8)) "<b-up-w>")
               (CONS (SPADCALL 119857 (QREFELT $ 8)) "<b-up-x>")
               (CONS (SPADCALL 119858 (QREFELT $ 8)) "<b-up-y>")
               (CONS (SPADCALL 119859 (QREFELT $ 8)) "<b-up-z>")
               (CONS (SPADCALL 119912 (QREFELT $ 8)) "<b-A>")
               (CONS (SPADCALL 119913 (QREFELT $ 8)) "<b-B>")
               (CONS (SPADCALL 119914 (QREFELT $ 8)) "<b-C>")
               (CONS (SPADCALL 119915 (QREFELT $ 8)) "<b-D>")
               (CONS (SPADCALL 119916 (QREFELT $ 8)) "<b-E>")
               (CONS (SPADCALL 119917 (QREFELT $ 8)) "<b-F>")
               (CONS (SPADCALL 119918 (QREFELT $ 8)) "<b-G>")
               (CONS (SPADCALL 119919 (QREFELT $ 8)) "<b-H>")
               (CONS (SPADCALL 119920 (QREFELT $ 8)) "<b-I>")
               (CONS (SPADCALL 119921 (QREFELT $ 8)) "<b-J>")
               (CONS (SPADCALL 119922 (QREFELT $ 8)) "<b-K>")
               (CONS (SPADCALL 119923 (QREFELT $ 8)) "<b-L>")
               (CONS (SPADCALL 119924 (QREFELT $ 8)) "<b-M>")
               (CONS (SPADCALL 119925 (QREFELT $ 8)) "<b-N>")
               (CONS (SPADCALL 119926 (QREFELT $ 8)) "<b-O>")
               (CONS (SPADCALL 119927 (QREFELT $ 8)) "<b-P>")
               (CONS (SPADCALL 119928 (QREFELT $ 8)) "<b-Q>")
               (CONS (SPADCALL 119929 (QREFELT $ 8)) "<b-R>")
               (CONS (SPADCALL 119930 (QREFELT $ 8)) "<b-S>")
               (CONS (SPADCALL 119931 (QREFELT $ 8)) "<b-T>")
               (CONS (SPADCALL 119932 (QREFELT $ 8)) "<b-U>")
               (CONS (SPADCALL 119933 (QREFELT $ 8)) "<b-V>")
               (CONS (SPADCALL 119934 (QREFELT $ 8)) "<b-W>")
               (CONS (SPADCALL 119935 (QREFELT $ 8)) "<b-X>")
               (CONS (SPADCALL 119936 (QREFELT $ 8)) "<b-Y>")
               (CONS (SPADCALL 119937 (QREFELT $ 8)) "<b-Z>")
               (CONS (SPADCALL 119938 (QREFELT $ 8)) "<b-a>")
               (CONS (SPADCALL 119939 (QREFELT $ 8)) "<b-b>")
               (CONS (SPADCALL 119940 (QREFELT $ 8)) "<b-c>")
               (CONS (SPADCALL 119941 (QREFELT $ 8)) "<b-d>")
               (CONS (SPADCALL 119942 (QREFELT $ 8)) "<b-e>")
               (CONS (SPADCALL 119943 (QREFELT $ 8)) "<b-f>")
               (CONS (SPADCALL 119944 (QREFELT $ 8)) "<b-g>")
               (CONS (SPADCALL 119945 (QREFELT $ 8)) "<b-h>")
               (CONS (SPADCALL 119946 (QREFELT $ 8)) "<b-i>")
               (CONS (SPADCALL 119947 (QREFELT $ 8)) "<b-j>")
               (CONS (SPADCALL 119948 (QREFELT $ 8)) "<b-k>")
               (CONS (SPADCALL 119949 (QREFELT $ 8)) "<b-l>")
               (CONS (SPADCALL 119950 (QREFELT $ 8)) "<b-m>")
               (CONS (SPADCALL 119951 (QREFELT $ 8)) "<b-n>")
               (CONS (SPADCALL 119952 (QREFELT $ 8)) "<b-o>")
               (CONS (SPADCALL 119953 (QREFELT $ 8)) "<b-p>")
               (CONS (SPADCALL 119954 (QREFELT $ 8)) "<b-q>")
               (CONS (SPADCALL 119955 (QREFELT $ 8)) "<b-r>")
               (CONS (SPADCALL 119956 (QREFELT $ 8)) "<b-s>")
               (CONS (SPADCALL 119957 (QREFELT $ 8)) "<b-t>")
               (CONS (SPADCALL 119958 (QREFELT $ 8)) "<b-u>")
               (CONS (SPADCALL 119959 (QREFELT $ 8)) "<b-v>")
               (CONS (SPADCALL 119960 (QREFELT $ 8)) "<b-w>")
               (CONS (SPADCALL 119961 (QREFELT $ 8)) "<b-x>")
               (CONS (SPADCALL 119962 (QREFELT $ 8)) "<b-y>")
               (CONS (SPADCALL 119963 (QREFELT $ 8)) "<b-z>")
               (CONS (SPADCALL 119964 (QREFELT $ 8)) "<cal-A>")
               (CONS (SPADCALL 119966 (QREFELT $ 8)) "<cal-C>")
               (CONS (SPADCALL 119967 (QREFELT $ 8)) "<cal-D>")
               (CONS (SPADCALL 119970 (QREFELT $ 8)) "<cal-G>")
               (CONS (SPADCALL 119973 (QREFELT $ 8)) "<cal-J>")
               (CONS (SPADCALL 119974 (QREFELT $ 8)) "<cal-K>")
               (CONS (SPADCALL 119977 (QREFELT $ 8)) "<cal-N>")
               (CONS (SPADCALL 119978 (QREFELT $ 8)) "<cal-O>")
               (CONS (SPADCALL 119979 (QREFELT $ 8)) "<cal-P>")
               (CONS (SPADCALL 119980 (QREFELT $ 8)) "<cal-Q>")
               (CONS (SPADCALL 119982 (QREFELT $ 8)) "<cal-S>")
               (CONS (SPADCALL 119983 (QREFELT $ 8)) "<cal-T>")
               (CONS (SPADCALL 119984 (QREFELT $ 8)) "<cal-U>")
               (CONS (SPADCALL 119985 (QREFELT $ 8)) "<cal-V>")
               (CONS (SPADCALL 119986 (QREFELT $ 8)) "<cal-W>")
               (CONS (SPADCALL 119987 (QREFELT $ 8)) "<cal-X>")
               (CONS (SPADCALL 119988 (QREFELT $ 8)) "<cal-Y>")
               (CONS (SPADCALL 119989 (QREFELT $ 8)) "<cal-Z>")
               (CONS (SPADCALL 119990 (QREFELT $ 8)) "<cal-a>")
               (CONS (SPADCALL 119991 (QREFELT $ 8)) "<cal-b>")
               (CONS (SPADCALL 119992 (QREFELT $ 8)) "<cal-c>")
               (CONS (SPADCALL 119993 (QREFELT $ 8)) "<cal-d>")
               (CONS (SPADCALL 119995 (QREFELT $ 8)) "<cal-f>")
               (CONS (SPADCALL 119997 (QREFELT $ 8)) "<cal-h>")
               (CONS (SPADCALL 119998 (QREFELT $ 8)) "<cal-i>")
               (CONS (SPADCALL 119999 (QREFELT $ 8)) "<cal-j>")
               (CONS (SPADCALL 120000 (QREFELT $ 8)) "<cal-k>")
               (CONS (SPADCALL 120001 (QREFELT $ 8)) "<cal-l>")
               (CONS (SPADCALL 120002 (QREFELT $ 8)) "<cal-m>")
               (CONS (SPADCALL 120003 (QREFELT $ 8)) "<cal-n>")
               (CONS (SPADCALL 120005 (QREFELT $ 8)) "<cal-p>")
               (CONS (SPADCALL 120006 (QREFELT $ 8)) "<cal-q>")
               (CONS (SPADCALL 120007 (QREFELT $ 8)) "<cal-r>")
               (CONS (SPADCALL 120008 (QREFELT $ 8)) "<cal-s>")
               (CONS (SPADCALL 120009 (QREFELT $ 8)) "<cal-t>")
               (CONS (SPADCALL 120010 (QREFELT $ 8)) "<cal-u>")
               (CONS (SPADCALL 120011 (QREFELT $ 8)) "<cal-v>")
               (CONS (SPADCALL 120012 (QREFELT $ 8)) "<cal-w>")
               (CONS (SPADCALL 120013 (QREFELT $ 8)) "<cal-x>")
               (CONS (SPADCALL 120014 (QREFELT $ 8)) "<cal-y>")
               (CONS (SPADCALL 120015 (QREFELT $ 8)) "<cal-z>")
               (CONS (SPADCALL 120068 (QREFELT $ 8)) "<frak-A>")
               (CONS (SPADCALL 120069 (QREFELT $ 8)) "<frak-B>")
               (CONS (SPADCALL 120071 (QREFELT $ 8)) "<frak-D>")
               (CONS (SPADCALL 120072 (QREFELT $ 8)) "<frak-E>")
               (CONS (SPADCALL 120073 (QREFELT $ 8)) "<frak-F>")
               (CONS (SPADCALL 120074 (QREFELT $ 8)) "<frak-G>")
               (CONS (SPADCALL 120077 (QREFELT $ 8)) "<frak-J>")
               (CONS (SPADCALL 120078 (QREFELT $ 8)) "<frak-K>")
               (CONS (SPADCALL 120079 (QREFELT $ 8)) "<frak-L>")
               (CONS (SPADCALL 120080 (QREFELT $ 8)) "<frak-M>")
               (CONS (SPADCALL 120081 (QREFELT $ 8)) "<frak-N>")
               (CONS (SPADCALL 120082 (QREFELT $ 8)) "<frak-O>")
               (CONS (SPADCALL 120083 (QREFELT $ 8)) "<frak-P>")
               (CONS (SPADCALL 120084 (QREFELT $ 8)) "<frak-Q>")
               (CONS (SPADCALL 120086 (QREFELT $ 8)) "<frak-S>")
               (CONS (SPADCALL 120087 (QREFELT $ 8)) "<frak-T>")
               (CONS (SPADCALL 120088 (QREFELT $ 8)) "<frak-U>")
               (CONS (SPADCALL 120089 (QREFELT $ 8)) "<frak-V>")
               (CONS (SPADCALL 120090 (QREFELT $ 8)) "<frak-W>")
               (CONS (SPADCALL 120091 (QREFELT $ 8)) "<frak-X>")
               (CONS (SPADCALL 120092 (QREFELT $ 8)) "<frak-Y>")
               (CONS (SPADCALL 120094 (QREFELT $ 8)) "<frak-a>")
               (CONS (SPADCALL 120095 (QREFELT $ 8)) "<frak-b>")
               (CONS (SPADCALL 120096 (QREFELT $ 8)) "<frak-c>")
               (CONS (SPADCALL 120097 (QREFELT $ 8)) "<frak-d>")
               (CONS (SPADCALL 120098 (QREFELT $ 8)) "<frak-e>")
               (CONS (SPADCALL 120099 (QREFELT $ 8)) "<frak-f>")
               (CONS (SPADCALL 120100 (QREFELT $ 8)) "<frak-g>")
               (CONS (SPADCALL 120101 (QREFELT $ 8)) "<frak-h>")
               (CONS (SPADCALL 120102 (QREFELT $ 8)) "<frak-i>")
               (CONS (SPADCALL 120103 (QREFELT $ 8)) "<frak-j>")
               (CONS (SPADCALL 120104 (QREFELT $ 8)) "<frak-k>")
               (CONS (SPADCALL 120105 (QREFELT $ 8)) "<frak-l>")
               (CONS (SPADCALL 120106 (QREFELT $ 8)) "<frak-m>")
               (CONS (SPADCALL 120107 (QREFELT $ 8)) "<frak-n>")
               (CONS (SPADCALL 120108 (QREFELT $ 8)) "<frak-o>")
               (CONS (SPADCALL 120109 (QREFELT $ 8)) "<frak-p>")
               (CONS (SPADCALL 120110 (QREFELT $ 8)) "<frak-q>")
               (CONS (SPADCALL 120111 (QREFELT $ 8)) "<frak-r>")
               (CONS (SPADCALL 120112 (QREFELT $ 8)) "<frak-s>")
               (CONS (SPADCALL 120113 (QREFELT $ 8)) "<frak-t>")
               (CONS (SPADCALL 120114 (QREFELT $ 8)) "<frak-u>")
               (CONS (SPADCALL 120115 (QREFELT $ 8)) "<frak-v>")
               (CONS (SPADCALL 120116 (QREFELT $ 8)) "<frak-w>")
               (CONS (SPADCALL 120117 (QREFELT $ 8)) "<frak-x>")
               (CONS (SPADCALL 120118 (QREFELT $ 8)) "<frak-y>")
               (CONS (SPADCALL 120119 (QREFELT $ 8)) "<frak-z>")
               (CONS (SPADCALL 120120 (QREFELT $ 8)) "<bbb-A>")
               (CONS (SPADCALL 120121 (QREFELT $ 8)) "<bbb-B>")
               (CONS (SPADCALL 120123 (QREFELT $ 8)) "<bbb-D>")
               (CONS (SPADCALL 120124 (QREFELT $ 8)) "<bbb-E>")
               (CONS (SPADCALL 120125 (QREFELT $ 8)) "<bbb-F>")
               (CONS (SPADCALL 120126 (QREFELT $ 8)) "<bbb-G>")
               (CONS (SPADCALL 120128 (QREFELT $ 8)) "<bbb-I>")
               (CONS (SPADCALL 120129 (QREFELT $ 8)) "<bbb-J>")
               (CONS (SPADCALL 120130 (QREFELT $ 8)) "<bbb-K>")
               (CONS (SPADCALL 120131 (QREFELT $ 8)) "<bbb-L>")
               (CONS (SPADCALL 120132 (QREFELT $ 8)) "<bbb-M>")
               (CONS (SPADCALL 120134 (QREFELT $ 8)) "<bbb-O>")
               (CONS (SPADCALL 120138 (QREFELT $ 8)) "<bbb-S>")
               (CONS (SPADCALL 120139 (QREFELT $ 8)) "<bbb-T>")
               (CONS (SPADCALL 120140 (QREFELT $ 8)) "<bbb-U>")
               (CONS (SPADCALL 120141 (QREFELT $ 8)) "<bbb-V>")
               (CONS (SPADCALL 120142 (QREFELT $ 8)) "<bbb-W>")
               (CONS (SPADCALL 120143 (QREFELT $ 8)) "<bbb-X>")
               (CONS (SPADCALL 120144 (QREFELT $ 8)) "<bbb-Y>")
               (CONS (SPADCALL 120146 (QREFELT $ 8)) "<bbb-a>")
               (CONS (SPADCALL 120147 (QREFELT $ 8)) "<bbb-b>")
               (CONS (SPADCALL 120148 (QREFELT $ 8)) "<bbb-c>")
               (CONS (SPADCALL 120149 (QREFELT $ 8)) "<bbb-d>")
               (CONS (SPADCALL 120150 (QREFELT $ 8)) "<bbb-e>")
               (CONS (SPADCALL 120151 (QREFELT $ 8)) "<bbb-f>")
               (CONS (SPADCALL 120152 (QREFELT $ 8)) "<bbb-g>")
               (CONS (SPADCALL 120153 (QREFELT $ 8)) "<bbb-h>")
               (CONS (SPADCALL 120154 (QREFELT $ 8)) "<bbb-i>")
               (CONS (SPADCALL 120155 (QREFELT $ 8)) "<bbb-j>")
               (CONS (SPADCALL 120156 (QREFELT $ 8)) "<bbb-k>")
               (CONS (SPADCALL 120157 (QREFELT $ 8)) "<bbb-l>")
               (CONS (SPADCALL 120158 (QREFELT $ 8)) "<bbb-m>")
               (CONS (SPADCALL 120159 (QREFELT $ 8)) "<bbb-n>")
               (CONS (SPADCALL 120160 (QREFELT $ 8)) "<bbb-o>")
               (CONS (SPADCALL 120161 (QREFELT $ 8)) "<bbb-p>")
               (CONS (SPADCALL 120162 (QREFELT $ 8)) "<bbb-q>")
               (CONS (SPADCALL 120163 (QREFELT $ 8)) "<bbb-r>")
               (CONS (SPADCALL 120164 (QREFELT $ 8)) "<bbb-s>")
               (CONS (SPADCALL 120165 (QREFELT $ 8)) "<bbb-t>")
               (CONS (SPADCALL 120166 (QREFELT $ 8)) "<bbb-u>")
               (CONS (SPADCALL 120167 (QREFELT $ 8)) "<bbb-v>")
               (CONS (SPADCALL 120168 (QREFELT $ 8)) "<bbb-w>")
               (CONS (SPADCALL 120169 (QREFELT $ 8)) "<bbb-x>")
               (CONS (SPADCALL 120170 (QREFELT $ 8)) "<bbb-y>")
               (CONS (SPADCALL 120171 (QREFELT $ 8)) "<bbb-z>")
               (CONS (SPADCALL 120488 (QREFELT $ 8)) "<b-Alpha>")
               (CONS (SPADCALL 120489 (QREFELT $ 8)) "<b-Beta>")
               (CONS (SPADCALL 120490 (QREFELT $ 8)) "<b-Gamma>")
               (CONS (SPADCALL 120491 (QREFELT $ 8)) "<b-Delta>")
               (CONS (SPADCALL 120492 (QREFELT $ 8)) "<b-Epsilon>")
               (CONS (SPADCALL 120493 (QREFELT $ 8)) "<b-Zeta>")
               (CONS (SPADCALL 120494 (QREFELT $ 8)) "<b-Eta>")
               (CONS (SPADCALL 120495 (QREFELT $ 8)) "<b-Theta>")
               (CONS (SPADCALL 120496 (QREFELT $ 8)) "<b-Iota>")
               (CONS (SPADCALL 120497 (QREFELT $ 8)) "<b-Kappa>")
               (CONS (SPADCALL 120498 (QREFELT $ 8)) "<b-Lambda>")
               (CONS (SPADCALL 120499 (QREFELT $ 8)) "<b-Mu>")
               (CONS (SPADCALL 120500 (QREFELT $ 8)) "<b-Nu>")
               (CONS (SPADCALL 120501 (QREFELT $ 8)) "<b-Xi>")
               (CONS (SPADCALL 120502 (QREFELT $ 8)) "<b-Omicron>")
               (CONS (SPADCALL 120503 (QREFELT $ 8)) "<b-Pi>")
               (CONS (SPADCALL 120504 (QREFELT $ 8)) "<b-Rho>")
               (CONS (SPADCALL 120506 (QREFELT $ 8)) "<b-Sigma>")
               (CONS (SPADCALL 120507 (QREFELT $ 8)) "<b-Tau>")
               (CONS (SPADCALL 120508 (QREFELT $ 8)) "<b-Upsilon>")
               (CONS (SPADCALL 120509 (QREFELT $ 8)) "<b-Phi>")
               (CONS (SPADCALL 120510 (QREFELT $ 8)) "<b-Chi>")
               (CONS (SPADCALL 120511 (QREFELT $ 8)) "<b-Psi>")
               (CONS (SPADCALL 120512 (QREFELT $ 8)) "<b-Omega>")
               (CONS (SPADCALL 120514 (QREFELT $ 8)) "<b-up-alpha>")
               (CONS (SPADCALL 120515 (QREFELT $ 8)) "<b-up-beta>")
               (CONS (SPADCALL 120516 (QREFELT $ 8)) "<b-up-gamma>")
               (CONS (SPADCALL 120517 (QREFELT $ 8)) "<b-up-delta>")
               (CONS (SPADCALL 120518 (QREFELT $ 8)) "<b-up-varepsilon>")
               (CONS (SPADCALL 120519 (QREFELT $ 8)) "<b-up-zeta>")
               (CONS (SPADCALL 120520 (QREFELT $ 8)) "<b-up-eta>")
               (CONS (SPADCALL 120521 (QREFELT $ 8)) "<b-up-theta>")
               (CONS (SPADCALL 120522 (QREFELT $ 8)) "<b-up-iota>")
               (CONS (SPADCALL 120523 (QREFELT $ 8)) "<b-up-kappa>")
               (CONS (SPADCALL 120524 (QREFELT $ 8)) "<b-up-lambda>")
               (CONS (SPADCALL 120525 (QREFELT $ 8)) "<b-up-mu>")
               (CONS (SPADCALL 120526 (QREFELT $ 8)) "<b-up-nu>")
               (CONS (SPADCALL 120527 (QREFELT $ 8)) "<b-up-xi>")
               (CONS (SPADCALL 120528 (QREFELT $ 8)) "<b-up-omicron>")
               (CONS (SPADCALL 120529 (QREFELT $ 8)) "<b-up-pi>")
               (CONS (SPADCALL 120530 (QREFELT $ 8)) "<b-up-rho>")
               (CONS (SPADCALL 120531 (QREFELT $ 8)) "<b-up-varsigma>")
               (CONS (SPADCALL 120532 (QREFELT $ 8)) "<b-up-sigma>")
               (CONS (SPADCALL 120533 (QREFELT $ 8)) "<b-up-tau>")
               (CONS (SPADCALL 120534 (QREFELT $ 8)) "<b-up-upsilon>")
               (CONS (SPADCALL 120535 (QREFELT $ 8)) "<b-up-varphi>")
               (CONS (SPADCALL 120536 (QREFELT $ 8)) "<b-up-chi>")
               (CONS (SPADCALL 120537 (QREFELT $ 8)) "<b-up-psi>")
               (CONS (SPADCALL 120538 (QREFELT $ 8)) "<b-up-omega>")
               (CONS (SPADCALL 120540 (QREFELT $ 8)) "<b-up-epsilon>")
               (CONS (SPADCALL 120541 (QREFELT $ 8)) "<b-up-vartheta>")
               (CONS (SPADCALL 120542 (QREFELT $ 8)) "<b-up-varkappa>")
               (CONS (SPADCALL 120543 (QREFELT $ 8)) "<b-up-phi>")
               (CONS (SPADCALL 120544 (QREFELT $ 8)) "<b-up-varrho>")
               (CONS (SPADCALL 120545 (QREFELT $ 8)) "<b-up-varpi>")
               (CONS (SPADCALL 120630 (QREFELT $ 8)) "<b-alpha>")
               (CONS (SPADCALL 120631 (QREFELT $ 8)) "<b-beta>")
               (CONS (SPADCALL 120632 (QREFELT $ 8)) "<b-gamma>")
               (CONS (SPADCALL 120633 (QREFELT $ 8)) "<b-delta>")
               (CONS (SPADCALL 120634 (QREFELT $ 8)) "<b-varepsilon>")
               (CONS (SPADCALL 120635 (QREFELT $ 8)) "<b-zeta>")
               (CONS (SPADCALL 120636 (QREFELT $ 8)) "<b-eta>")
               (CONS (SPADCALL 120637 (QREFELT $ 8)) "<b-theta>")
               (CONS (SPADCALL 120638 (QREFELT $ 8)) "<b-iota>")
               (CONS (SPADCALL 120639 (QREFELT $ 8)) "<b-kappa>")
               (CONS (SPADCALL 120640 (QREFELT $ 8)) "<b-lambda>")
               (CONS (SPADCALL 120641 (QREFELT $ 8)) "<b-mu>")
               (CONS (SPADCALL 120642 (QREFELT $ 8)) "<b-nu>")
               (CONS (SPADCALL 120643 (QREFELT $ 8)) "<b-xi>")
               (CONS (SPADCALL 120644 (QREFELT $ 8)) "<b-omicron>")
               (CONS (SPADCALL 120645 (QREFELT $ 8)) "<b-pi>")
               (CONS (SPADCALL 120646 (QREFELT $ 8)) "<b-rho>")
               (CONS (SPADCALL 120647 (QREFELT $ 8)) "<b-varsigma>")
               (CONS (SPADCALL 120648 (QREFELT $ 8)) "<b-sigma>")
               (CONS (SPADCALL 120649 (QREFELT $ 8)) "<b-tau>")
               (CONS (SPADCALL 120650 (QREFELT $ 8)) "<b-upsilon>")
               (CONS (SPADCALL 120651 (QREFELT $ 8)) "<b-varphi>")
               (CONS (SPADCALL 120652 (QREFELT $ 8)) "<b-chi>")
               (CONS (SPADCALL 120653 (QREFELT $ 8)) "<b-psi>")
               (CONS (SPADCALL 120654 (QREFELT $ 8)) "<b-omega>")
               (CONS (SPADCALL 120656 (QREFELT $ 8)) "<b-epsilon>")
               (CONS (SPADCALL 120657 (QREFELT $ 8)) "<b-vartheta>")
               (CONS (SPADCALL 120658 (QREFELT $ 8)) "<b-varkappa>")
               (CONS (SPADCALL 120659 (QREFELT $ 8)) "<b-phi>")
               (CONS (SPADCALL 120660 (QREFELT $ 8)) "<b-varrho>")
               (CONS (SPADCALL 120661 (QREFELT $ 8)) "<b-varpi>")
               (CONS (SPADCALL 120782 (QREFELT $ 8)) "<b-0>")
               (CONS (SPADCALL 120783 (QREFELT $ 8)) "<b-1>")
               (CONS (SPADCALL 120784 (QREFELT $ 8)) "<b-2>")
               (CONS (SPADCALL 120785 (QREFELT $ 8)) "<b-3>")
               (CONS (SPADCALL 120786 (QREFELT $ 8)) "<b-4>")
               (CONS (SPADCALL 120787 (QREFELT $ 8)) "<b-5>")
               (CONS (SPADCALL 120788 (QREFELT $ 8)) "<b-6>")
               (CONS (SPADCALL 120789 (QREFELT $ 8)) "<b-7>")
               (CONS (SPADCALL 120790 (QREFELT $ 8)) "<b-8>")
               (CONS (SPADCALL 120791 (QREFELT $ 8)) "<b-9>"))
         (QREFELT $ 12))) 

(SDEFUN |TMFORM;coerce;OfS;2| ((|expr| |OutputForm|) ($ |String|))
        (SPROG ((|s| (|String|)))
               (SEQ
                (LETT |s|
                      (|TMFORM;postcondition|
                       (|TMFORM;formatExpr| (SPADCALL |expr| (QREFELT $ 31))
                        (QREFELT $ 16) $)
                       $))
                (EXIT |s|)))) 

(PUT '|TMFORM;sayExpr| '|SPADreplace| '|sayTexmacs|) 

(SDEFUN |TMFORM;sayExpr| ((|s| |String|) ($ |Void|)) (|sayTexmacs| |s|)) 

(SDEFUN |TMFORM;coerceL;OfS;4| ((|expr| |OutputForm|) ($ |String|))
        (SPROG ((|s| (|String|)))
               (SEQ
                (LETT |s|
                      (|TMFORM;postcondition|
                       (|TMFORM;formatExpr| (SPADCALL |expr| (QREFELT $ 31))
                        (QREFELT $ 16) $)
                       $))
                (|TMFORM;sayExpr| "scheme: (with \"mode\" \"math\"" $)
                (|TMFORM;sayExpr| |s| $) (|TMFORM;sayExpr| ")" $) (EXIT |s|)))) 

(SDEFUN |TMFORM;display;SV;5| ((|texmacs| |String|) ($ |Void|))
        (SEQ (|TMFORM;sayExpr| "scheme: (with \"mode\" \"math\"" $)
             (|TMFORM;sayExpr| |texmacs| $) (|TMFORM;sayExpr| ")" $)
             (EXIT (SPADCALL (QREFELT $ 36))))) 

(PUT '|TMFORM;ungroup| '|SPADreplace| '(XLAM (|str|) |str|)) 

(SDEFUN |TMFORM;ungroup| ((|str| |String|) ($ |String|)) |str|) 

(SDEFUN |TMFORM;postcondition| ((|str| |String|) ($ |String|))
        (SPROG
         ((|uend| #1=(|UniversalSegment| (|Integer|))) (|ustart| #1#)
          (|pos| (|Integer|)) (|plusminus| (|String|)) (|len| (|Integer|)))
         (SEQ (LETT |len| (QCSIZE |str|))
              (LETT |plusminus| "\"+\" (concat \"-\"")
              (LETT |pos| (SPADCALL |plusminus| |str| 1 (QREFELT $ 38)))
              (COND
               ((> |pos| 0)
                (SEQ (LETT |ustart| (SPADCALL 1 (- |pos| 1) (QREFELT $ 40)))
                     (LETT |uend| (SPADCALL (+ |pos| 15) |len| (QREFELT $ 40)))
                     (LETT |str|
                           (SPADCALL
                            (LIST (SPADCALL |str| |ustart| (QREFELT $ 41))
                                  "(concat \"-\""
                                  (SPADCALL |str| |uend| (QREFELT $ 41)))
                            (QREFELT $ 43)))
                     (EXIT
                      (COND
                       ((< |pos| (- |len| 13))
                        (LETT |str| (|TMFORM;postcondition| |str| $))))))))
              (EXIT |str|)))) 

(PUT '|TMFORM;stringify| '|SPADreplace| '|mathObject2String|) 

(SDEFUN |TMFORM;stringify| ((|expr| |OutputForm|) ($ |String|))
        (|mathObject2String| |expr|)) 

(SDEFUN |TMFORM;optionalWrap|
        ((|s| |String|) (|expr| |OutputForm|) (|prec| |Integer|) ($ |String|))
        (SPROG ((|tmp| (|String|)))
               (SEQ (LETT |tmp| (|TMFORM;formatExpr| |expr| |prec| $))
                    (COND ((OR (EQUAL |tmp| "") (EQUAL |tmp| " ")) (EXIT "")))
                    (EXIT
                     (SPADCALL (LIST "(" |s| " " |tmp| ")") (QREFELT $ 43)))))) 

(SDEFUN |TMFORM;group| ((|str| |String|) ($ |String|))
        (SPADCALL (LIST "(concat " |str| ")") (QREFELT $ 43))) 

(SDEFUN |TMFORM;cork| ((|x| |SingleInteger|) ($ |String|))
        (SPROG ((|s| (|String|)) (|res| (|Union| (|String|) "failed")))
               (SEQ (LETT |res| (SPADCALL |x| (QREFELT $ 13) (QREFELT $ 45)))
                    (EXIT
                     (COND
                      ((QEQCAR |res| 1)
                       (COND
                        ((> |x| 1000)
                         (SEQ (LETT |s| (SPADCALL |x| 16 (QREFELT $ 47)))
                              (EXIT
                               (SPADCALL (LIST "\\<#" |s| "\\>")
                                         (QREFELT $ 43)))))
                        (#1='T (NUM2USTR |x|))))
                      (#1# (QCDR |res|))))))) 

(SDEFUN |TMFORM;utf2cork| ((|str| |String|) ($ |String|))
        (SPROG ((#1=#:G803 NIL) (|i| NIL) (#2=#:G802 NIL))
               (SEQ
                (SPADCALL
                 (PROGN
                  (LETT #2# NIL)
                  (SEQ (LETT |i| NIL) (LETT #1# (UENTRIES |str|)) G190
                       (COND
                        ((OR (ATOM #1#) (PROGN (LETT |i| (CAR #1#)) NIL))
                         (GO G191)))
                       (SEQ (EXIT (LETT #2# (CONS (|TMFORM;cork| |i| $) #2#))))
                       (LETT #1# (CDR #1#)) (GO G190) G191
                       (EXIT (NREVERSE #2#))))
                 (QREFELT $ 43))))) 

(SDEFUN |TMFORM;addBraces| ((|str| |String|) ($ |String|))
        (SPADCALL (LIST " \"{\" " |str| " \"}\" ") (QREFELT $ 43))) 

(SDEFUN |TMFORM;addBrackets| ((|str| |String|) ($ |String|))
        (SPADCALL (LIST " \"[\" " |str| " \"]\" ") (QREFELT $ 43))) 

(SDEFUN |TMFORM;parenthesize| ((|str| |String|) ($ |String|))
        (SPADCALL (LIST " \"(\" " |str| " \")\" ") (QREFELT $ 43))) 

(SDEFUN |TMFORM;formatSpecial|
        ((|op| |Symbol|) (|args| |List| (|OutputForm|)) (|prec| |Integer|)
         ($ |String|))
        (SPROG
         ((|tmp| (|String|)) (|base| (|String|)) (|prescript| (|Boolean|)))
         (SEQ (LETT |prescript| NIL)
              (EXIT
               (COND ((EQUAL |op| '|theMap|) "(concat \"theMap(...)\")")
                     ((EQUAL |op| 'AGGLST)
                      (|TMFORM;formatNary| '|,| "" 0 |args| |prec| $))
                     ((EQUAL |op| 'AGGSET)
                      (|TMFORM;formatNary| '|;| "" 0 |args| |prec| $))
                     ((EQUAL |op| 'TAG)
                      (|TMFORM;group|
                       (SPADCALL
                        (LIST
                         (|TMFORM;formatExpr| (|SPADfirst| |args|) |prec| $)
                         " \"<rightarrow>\" "
                         (|TMFORM;formatExpr| (SPADCALL |args| (QREFELT $ 49))
                          |prec| $))
                        (QREFELT $ 43))
                       $))
                     ((EQUAL |op| 'SLASH)
                      (|TMFORM;group|
                       (SPADCALL
                        (LIST
                         (|TMFORM;formatExpr| (|SPADfirst| |args|) |prec| $)
                         " \"/\" "
                         (|TMFORM;formatExpr| (SPADCALL |args| (QREFELT $ 49))
                          |prec| $))
                        (QREFELT $ 43))
                       $))
                     ((EQUAL |op| 'CONCATB)
                      (|TMFORM;formatNary| 'STRSEP "(space \"1spc\")" 0 |args|
                       |prec| $))
                     ((EQUAL |op| 'CONCAT)
                      (|TMFORM;formatNary| 'STRSEP "" 0 |args| (QREFELT $ 16)
                       $))
                     ((EQUAL |op| 'QUOTE)
                      (|TMFORM;group|
                       (STRCONC "'"
                                (|TMFORM;formatExpr| (|SPADfirst| |args|)
                                 (QREFELT $ 16) $))
                       $))
                     ((EQUAL |op| 'BRACKET)
                      (|TMFORM;group|
                       (|TMFORM;addBrackets|
                        (|TMFORM;ungroup|
                         (|TMFORM;formatExpr| (|SPADfirst| |args|)
                          (QREFELT $ 16) $)
                         $)
                        $)
                       $))
                     ((EQUAL |op| 'BRACE)
                      (|TMFORM;group|
                       (|TMFORM;addBraces|
                        (|TMFORM;ungroup|
                         (|TMFORM;formatExpr| (|SPADfirst| |args|)
                          (QREFELT $ 16) $)
                         $)
                        $)
                       $))
                     ((EQUAL |op| 'PAREN)
                      (|TMFORM;group|
                       (|TMFORM;parenthesize|
                        (|TMFORM;ungroup|
                         (|TMFORM;formatExpr| (|SPADfirst| |args|)
                          (QREFELT $ 16) $)
                         $)
                        $)
                       $))
                     ((EQUAL |op| 'PRIME)
                      (|TMFORM;formatSpecial| 'SUPERSUB
                       (LIST (|SPADfirst| |args|) (SPADCALL " " (QREFELT $ 50))
                             (SPADCALL |args| (QREFELT $ 49)))
                       |prec| $))
                     ((EQUAL |op| 'OVERBAR)
                      (COND ((NULL |args|) "")
                            (#1='T
                             (SPADCALL
                              (LIST "(wide "
                                    (|TMFORM;formatExpr| (|SPADfirst| |args|)
                                     (QREFELT $ 16) $)
                                    " \"<bar>\")")
                              (QREFELT $ 43)))))
                     ((EQUAL |op| 'ROOT)
                      (COND ((NULL |args|) "")
                            (#1#
                             (SEQ
                              (LETT |tmp|
                                    (|TMFORM;group|
                                     (|TMFORM;formatExpr| (|SPADfirst| |args|)
                                      (QREFELT $ 16) $)
                                     $))
                              (EXIT
                               (COND
                                ((NULL (CDR |args|))
                                 (SPADCALL (LIST "(sqrt " |tmp| ")")
                                           (QREFELT $ 43)))
                                (#1#
                                 (SPADCALL
                                  (LIST "(sqrt " |tmp| " "
                                        (|TMFORM;formatExpr|
                                         (|SPADfirst| (CDR |args|))
                                         (QREFELT $ 16) $)
                                        ")")
                                  (QREFELT $ 43)))))))))
                     ((EQUAL |op| 'SEGMENT)
                      (SEQ
                       (LETT |tmp|
                             (SPADCALL
                              (LIST
                               (|TMFORM;formatExpr| (|SPADfirst| |args|)
                                (QREFELT $ 16) $)
                               " \"..\" ")
                              (QREFELT $ 43)))
                       (EXIT
                        (|TMFORM;group|
                         (COND ((NULL (CDR |args|)) |tmp|)
                               (#1#
                                (SPADCALL
                                 (LIST |tmp|
                                       (|TMFORM;formatExpr|
                                        (|SPADfirst| (CDR |args|))
                                        (QREFELT $ 16) $))
                                 (QREFELT $ 43))))
                         $))))
                     ((EQUAL |op| 'SUB)
                      (|TMFORM;group|
                       (SPADCALL
                        (LIST "(concat "
                              (|TMFORM;formatExpr| (|SPADfirst| |args|)
                               (QREFELT $ 16) $)
                              "(rsub "
                              (|TMFORM;formatSpecial| 'AGGLST (CDR |args|)
                               (QREFELT $ 16) $)
                              "))")
                        (QREFELT $ 43))
                       $))
                     ((EQUAL |op| 'SUPERSUB)
                      (SEQ
                       (LETT |base|
                             (|TMFORM;formatExpr| (|SPADfirst| |args|)
                              (QREFELT $ 16) $))
                       (LETT |args| (CDR |args|))
                       (EXIT
                        (COND
                         ((> (LENGTH |args|) 4)
                          (|error|
                           "multiscript object has more than 4 scripts"))
                         (#1#
                          (SEQ
                           (COND
                            ((NULL (NULL |args|))
                             (SEQ
                              (LETT |base|
                                    (SPADCALL
                                     (LIST |base| " "
                                           (|TMFORM;optionalWrap| "rsub"
                                            (SPADCALL |args| 1 (QREFELT $ 51))
                                            (QREFELT $ 16) $))
                                     (QREFELT $ 43)))
                              (EXIT (LETT |args| (CDR |args|))))))
                           (COND
                            ((NULL (NULL |args|))
                             (SEQ
                              (LETT |base|
                                    (SPADCALL
                                     (LIST |base| " "
                                           (|TMFORM;optionalWrap| "rsup"
                                            (SPADCALL |args| 1 (QREFELT $ 51))
                                            (QREFELT $ 16) $))
                                     (QREFELT $ 43)))
                              (EXIT (LETT |args| (CDR |args|))))))
                           (COND
                            ((NULL (NULL |args|))
                             (SEQ
                              (LETT |base|
                                    (SPADCALL
                                     (LIST
                                      (|TMFORM;optionalWrap| "lsup"
                                       (SPADCALL |args| 1 (QREFELT $ 51))
                                       (QREFELT $ 16) $)
                                      " " |base|)
                                     (QREFELT $ 43)))
                              (EXIT (LETT |args| (CDR |args|))))))
                           (COND
                            ((NULL (NULL |args|))
                             (LETT |base|
                                   (SPADCALL
                                    (LIST
                                     (|TMFORM;optionalWrap| "lsub"
                                      (SPADCALL |args| 1 (QREFELT $ 51))
                                      (QREFELT $ 16) $)
                                     " " |base|)
                                    (QREFELT $ 43)))))
                           (EXIT
                            (SPADCALL (LIST "(concat " |base| ")")
                                      (QREFELT $ 43)))))))))
                     ((EQUAL |op| 'SC)
                      (COND ((NULL |args|) "")
                            (#1#
                             (SEQ
                              (LETT |tmp|
                                    (|TMFORM;formatNaryNoGroup| 'STRSEP
                                     ")) (row (cell " 0 |args| (QREFELT $ 16)
                                     $))
                              (EXIT
                               (SPADCALL
                                (LIST
                                 "(tabular (tformat (twith \"table-valign\" \"t\") (table (row (cell "
                                 |tmp| ")))))")
                                (QREFELT $ 43)))))))
                     ((EQUAL |op| 'MATRIX)
                      (|TMFORM;formatMatrix| (CDR |args|) $))
                     ((EQUAL |op| 'BINOMIAL)
                      (SPADCALL
                       (LIST "(binom "
                             (|TMFORM;formatExpr|
                              (SPADCALL |args| 1 (QREFELT $ 51)) (QREFELT $ 16)
                              $)
                             " "
                             (|TMFORM;formatExpr|
                              (SPADCALL |args| 2 (QREFELT $ 51)) (QREFELT $ 16)
                              $)
                             ")")
                       (QREFELT $ 43)))
                     ((EQUAL |op| 'NOTHING) "\"\"")
                     (#1#
                      (SPADCALL
                       (LIST "(concat \"not done yet for: "
                             (SPADCALL |op| (QREFELT $ 53)) "\")")
                       (QREFELT $ 43)))))))) 

(SDEFUN |TMFORM;formatPlex|
        ((|op| |Symbol|) (|args| |List| (|OutputForm|)) (|prec| |Integer|)
         ($ |String|))
        (SPROG
         ((|s| (|String|)) (|t1| #1=(|String|)) (|t2| (|String|)) (|body| #1#)
          (|ops| (|String|)) (|n| (|Integer|)) (|opPrec| (|Integer|))
          (|p| (|Integer|)))
         (SEQ (LETT |p| (SPADCALL |op| (QREFELT $ 24) (QREFELT $ 55)))
              (EXIT
               (COND ((< |p| 1) (|error| "unknown plex op"))
                     (#2='T
                      (SEQ
                       (LETT |opPrec|
                             (SPADCALL (QREFELT $ 25) |p| (QREFELT $ 57)))
                       (LETT |n| (LENGTH |args|))
                       (COND
                        ((SPADCALL |n| 2 (QREFELT $ 59))
                         (COND
                          ((SPADCALL |n| 3 (QREFELT $ 59))
                           (EXIT
                            (|error| "wrong number of arguments for plex"))))))
                       (LETT |ops|
                             (COND
                              ((EQUAL |op| 'SIGMA)
                               (COND ((EQL |n| 2) "<sum>")
                                     (#2#
                                      (|error|
                                       "wrong number of arguments for plex"))))
                              ((EQUAL |op| 'SIGMA2)
                               (COND ((EQL |n| 3) "<sum>")
                                     (#2#
                                      (|error|
                                       "wrong number of arguments for plex"))))
                              ((EQUAL |op| 'PI)
                               (COND ((EQL |n| 2) "<prod>")
                                     (#2#
                                      (|error|
                                       "wrong number of arguments for plex"))))
                              ((EQUAL |op| 'PI2)
                               (COND ((EQL |n| 3) "<prod>")
                                     (#2#
                                      (|error|
                                       "wrong number of arguments for plex"))))
                              ((EQUAL |op| 'INTSIGN)
                               (COND ((EQL |n| 3) "<int>")
                                     (#2#
                                      (|error|
                                       "wrong number of arguments for plex"))))
                              (#2#
                               (|error|
                                (SPADCALL "Unexpected plex op:"
                                          (SPADCALL |op| (QREFELT $ 53))
                                          (QREFELT $ 60))))))
                       (LETT |body|
                             (COND
                              ((EQUAL |op| 'INTSIGN)
                               (STRCONC
                                (|TMFORM;formatIntBody|
                                 (SPADCALL |args| 3 (QREFELT $ 51))
                                 (QREFELT $ 16) $)
                                " (big \".\")"))
                              (#2#
                               (|TMFORM;formatExpr|
                                (SPADCALL |args| |n| (QREFELT $ 51)) |opPrec|
                                $))))
                       (LETT |t2|
                             (COND
                              ((EQL |n| 3)
                               (SPADCALL
                                (LIST " (rsup "
                                      (|TMFORM;formatExpr|
                                       (SPADCALL |args| 2 (QREFELT $ 51))
                                       (QREFELT $ 16) $)
                                      ")")
                                (QREFELT $ 43)))
                              (#2# "")))
                       (LETT |t1|
                             (|TMFORM;formatExpr|
                              (SPADCALL |args| 1 (QREFELT $ 51)) (QREFELT $ 16)
                              $))
                       (LETT |s|
                             (SPADCALL
                              (LIST "(big-around \"" |ops| "\" (concat (rsub "
                                    |t1| ")" |t2| " " |body| "))")
                              (QREFELT $ 43)))
                       (COND
                        ((< |opPrec| |prec|)
                         (LETT |s| (|TMFORM;parenthesize| |s| $))))
                       (EXIT |s|)))))))) 

(SDEFUN |TMFORM;formatIntBody|
        ((|body| |OutputForm|) (|opPrec| |Integer|) ($ |String|))
        (SPROG
         ((#1=#:G883 NIL) (|bvarS| (|String|))
          (|bvarL| #2=(|List| (|OutputForm|))) (|bvar| (|OutputForm|))
          (|bodyL| #2#))
         (SEQ
          (EXIT
           (SEQ
            (COND
             ((SPADCALL |body| '* (QREFELT $ 61))
              (SEQ (LETT |bodyL| (SPADCALL |body| (QREFELT $ 62)))
                   (EXIT
                    (COND
                     ((EQL (LENGTH |bodyL|) 2)
                      (COND
                       ((SPADCALL
                         (LETT |bvar| (SPADCALL |bodyL| 2 (QREFELT $ 51)))
                         'CONCAT (QREFELT $ 61))
                        (SEQ (LETT |bvarL| (SPADCALL |bvar| (QREFELT $ 62)))
                             (EXIT
                              (COND
                               ((EQL (LENGTH |bvarL|) 2)
                                (COND
                                 ((SPADCALL (SPADCALL |bvarL| 1 (QREFELT $ 51))
                                            '|d| (QREFELT $ 63))
                                  (SEQ
                                   (LETT |bvarS|
                                         (|TMFORM;stringify|
                                          (SPADCALL |bvarL| 2 (QREFELT $ 51))
                                          $))
                                   (EXIT
                                    (PROGN
                                     (LETT #1#
                                           (SPADCALL
                                            (LIST "(concat "
                                                  (|TMFORM;formatExpr|
                                                   (SPADCALL |bodyL| 1
                                                             (QREFELT $ 51))
                                                   |opPrec| $)
                                                  " \"*<mathd>" |bvarS| "\")")
                                            (QREFELT $ 43)))
                                     (GO #3=#:G882))))))))))))))))))
            (EXIT (|TMFORM;formatExpr| |body| |opPrec| $))))
          #3# (EXIT #1#)))) 

(SDEFUN |TMFORM;formatMatrix| ((|args| |List| (|OutputForm|)) ($ |String|))
        (|TMFORM;group|
         (SPADCALL
          (LIST "(matrix (tformat (table (row (cell "
                (|TMFORM;formatNaryNoGroup| 'STRSEP ")) (row (cell " 0 |args|
                 (QREFELT $ 16) $)
                ")))))")
          (QREFELT $ 43))
         $)) 

(SDEFUN |TMFORM;formatFunction|
        ((|op| |OutputForm|) (|args| |List| (|OutputForm|)) (|prec| |Integer|)
         ($ |String|))
        (SPROG ((|ops| (|String|)))
               (SEQ (LETT |ops| (|TMFORM;formatExpr| |op| (QREFELT $ 16) $))
                    (EXIT
                     (|TMFORM;group|
                      (SPADCALL
                       (LIST |ops| " "
                             (|TMFORM;parenthesize|
                              (|TMFORM;formatNary| '|,| "" 0 |args|
                               (QREFELT $ 16) $)
                              $))
                       (QREFELT $ 43))
                      $))))) 

(SDEFUN |TMFORM;formatNullary| ((|op| |Symbol|) ($ |String|))
        (COND ((EQUAL |op| 'NOTHING) "\"\"")
              ('T
               (|TMFORM;group|
                (SPADCALL (LIST "\"" (SPADCALL |op| (QREFELT $ 53)) "()\"")
                          (QREFELT $ 43))
                $)))) 

(SDEFUN |TMFORM;formatUnary|
        ((|op| |Symbol|) (|arg| |OutputForm|) (|prec| |Integer|) ($ |String|))
        (SPROG ((|s| (|String|)) (|opPrec| (|Integer|)) (|p| (|Integer|)))
               (SEQ (LETT |p| (SPADCALL |op| (QREFELT $ 17) (QREFELT $ 55)))
                    (EXIT
                     (COND ((< |p| 1) (|error| "unknown unary op"))
                           (#1='T
                            (SEQ
                             (LETT |opPrec|
                                   (SPADCALL (QREFELT $ 18) |p|
                                             (QREFELT $ 57)))
                             (LETT |s|
                                   (SPADCALL
                                    (LIST "(concat \""
                                          (SPADCALL |op| (QREFELT $ 53)) "\" "
                                          (|TMFORM;formatExpr| |arg| |opPrec|
                                           $)
                                          ")")
                                    (QREFELT $ 43)))
                             (EXIT
                              (COND
                               ((< |opPrec| |prec|)
                                (|TMFORM;group| (|TMFORM;parenthesize| |s| $)
                                 $))
                               ((EQUAL |op| '-) |s|)
                               (#1# (|TMFORM;group| |s| $))))))))))) 

(SDEFUN |TMFORM;formatBinary|
        ((|op| |Symbol|) (|args| |List| (|OutputForm|)) (|prec| |Integer|)
         ($ |String|))
        (SPROG
         ((|s| (|String|)) (|ops| (|String|)) (|s2| #1=(|String|)) (|s1| #1#)
          (|opPrec| (|Integer|)) (|p| (|Integer|)))
         (SEQ (LETT |p| (SPADCALL |op| (QREFELT $ 19) (QREFELT $ 55)))
              (EXIT
               (COND ((< |p| 1) (|error| "unknown binary op"))
                     (#2='T
                      (SEQ
                       (LETT |opPrec|
                             (SPADCALL (QREFELT $ 20) |p| (QREFELT $ 57)))
                       (LETT |s1|
                             (|TMFORM;formatExpr| (|SPADfirst| |args|) |opPrec|
                              $))
                       (LETT |s2|
                             (|TMFORM;formatExpr| (|SPADfirst| (CDR |args|))
                              |opPrec| $))
                       (LETT |s|
                             (COND
                              ((EQUAL |op| '^)
                               (SPADCALL
                                (LIST
                                 (SPADCALL "(concat "
                                           (SPADCALL |s1|
                                                     (SPADCALL "(rsup "
                                                               (SPADCALL |s2|
                                                                         "))"
                                                                         (QREFELT
                                                                          $
                                                                          60))
                                                               (QREFELT $ 60))
                                                     (QREFELT $ 60))
                                           (QREFELT $ 60)))
                                (QREFELT $ 43)))
                              ((EQUAL |op| '/)
                               (SPADCALL (LIST "(frac " |s1| " " |s2| ")")
                                         (QREFELT $ 43)))
                              (#2#
                               (COND
                                ((EQUAL |op| 'OVER)
                                 (SPADCALL (LIST "(frac " |s1| " " |s2| ")")
                                           (QREFELT $ 43)))
                                (#2#
                                 (SEQ
                                  (LETT |ops|
                                        (COND ((EQUAL |op| '~=) "<ne>")
                                              ((EQUAL |op| '<) "<less>")
                                              ((EQUAL |op| '<=) "<leq>")
                                              ((EQUAL |op| '>) "<gtr>")
                                              ((EQUAL |op| '>=) "<geq>")
                                              ((EQUAL |op| '+->) "<mapsto>")
                                              (#2#
                                               (COND ((EQUAL |op| 'LET) ":=")
                                                     (#2#
                                                      (SPADCALL |op|
                                                                (QREFELT $
                                                                         53)))))))
                                  (EXIT
                                   (SPADCALL
                                    (LIST "(concat " |s1| " \"" |ops| "\" "
                                          |s2| ")")
                                    (QREFELT $ 43)))))))))
                       (EXIT
                        (|TMFORM;group|
                         (COND
                          ((OR (OR (EQUAL |op| '/) (EQUAL |op| 'OVER))
                               (NULL (< |opPrec| |prec|)))
                           |s|)
                          ('T (|TMFORM;parenthesize| |s| $)))
                         $))))))))) 

(SDEFUN |TMFORM;formatNary|
        ((|op| |Symbol|) (|sep| |String|) (|opprec| |Integer|)
         (|args| |List| (|OutputForm|)) (|prec| |Integer|) ($ |String|))
        (|TMFORM;group|
         (|TMFORM;formatNaryNoGroup| |op| |sep| |opprec| |args| |prec| $) $)) 

(SDEFUN |TMFORM;formatNaryNoGroup|
        ((|op| |Symbol|) (|sep| |String|) (|opprec| |Integer|)
         (|args| |List| (|OutputForm|)) (|prec| |Integer|) ($ |String|))
        (SPROG
         ((|s| (|String|)) (|l| (|List| (|String|))) (#1=#:G914 NIL) (|a| NIL)
          (|opPrec| (|Integer|)) (|ops| (|String|)) (|p| (|Integer|)))
         (SEQ
          (COND ((NULL |args|) "")
                (#2='T
                 (SEQ (LETT |p| (SPADCALL |op| (QREFELT $ 21) (QREFELT $ 55)))
                      (EXIT
                       (COND ((< |p| 1) (|error| "unknown nary op"))
                             (#2#
                              (SEQ
                               (COND
                                ((> (LENGTH |args|) 1)
                                 (COND
                                  ((SPADCALL (SPADCALL |args| 2 (QREFELT $ 51))
                                             'ZAG (QREFELT $ 61))
                                   (EXIT
                                    (COND
                                     ((SPADCALL |op| '+ (QREFELT $ 64))
                                      (|error| "ZAG in unexpected place"))
                                     ((SPADCALL
                                       (SPADCALL |args| 1 (QREFELT $ 51)) 'ZAG
                                       (QREFELT $ 61))
                                      (|TMFORM;formatZag| |args| $))
                                     (#2#
                                      (SPADCALL
                                       (LIST
                                        (|TMFORM;formatExpr|
                                         (|SPADfirst| |args|) (QREFELT $ 16) $)
                                        " \"+\" "
                                        (|TMFORM;formatZag| (CDR |args|) $))
                                       (QREFELT $ 43)))))))))
                               (LETT |ops|
                                     (COND ((EQUAL |op| 'STRSEP) |sep|)
                                           ((EQUAL |op| 'ROW) ") (cell ")
                                           ((EQUAL |op| 'TENSOR)
                                            " \"<otimes>\" ")
                                           (#2#
                                            (SPADCALL
                                             (LIST " \""
                                                   (SPADCALL |op|
                                                             (QREFELT $ 53))
                                                   "\" ")
                                             (QREFELT $ 43)))))
                               (LETT |l| NIL)
                               (LETT |opPrec|
                                     (COND ((EQUAL |op| 'STRSEP) |opprec|)
                                           (#2#
                                            (SPADCALL (QREFELT $ 22) |p|
                                                      (QREFELT $ 57)))))
                               (SEQ (LETT |a| NIL) (LETT #1# |args|) G190
                                    (COND
                                     ((OR (ATOM #1#)
                                          (PROGN (LETT |a| (CAR #1#)) NIL))
                                      (GO G191)))
                                    (SEQ
                                     (EXIT
                                      (LETT |l|
                                            (CONS |ops|
                                                  (CONS
                                                   (|TMFORM;formatExpr| |a|
                                                    |opPrec| $)
                                                   |l|)))))
                                    (LETT #1# (CDR #1#)) (GO G190) G191
                                    (EXIT NIL))
                               (LETT |s|
                                     (SPADCALL (REVERSE (CDR |l|))
                                               (QREFELT $ 43)))
                               (EXIT
                                (COND
                                 ((< |opPrec| |prec|)
                                  (|TMFORM;parenthesize| |s| $))
                                 (#2# |s|))))))))))))) 

(SDEFUN |TMFORM;formatZag| ((|args| |List| (|OutputForm|)) ($ |String|))
        (SPROG ((|tmpZag| (|List| (|OutputForm|))) (|op| (|String|)))
               (SEQ
                (COND
                 ((SPADCALL (|SPADfirst| |args|) '|...| (QREFELT $ 63))
                  "<ldots>")
                 ((NULL (SPADCALL (|SPADfirst| |args|) 'ZAG (QREFELT $ 61)))
                  (LETT |op|
                        (|TMFORM;stringify|
                         (|SPADfirst|
                          (SPADCALL |args|
                                    (|error|
                                     (SPADCALL
                                      "formatZag: Last argument in ZAG construct "
                                      (SPADCALL "has unknown operator: " |op|
                                                (QREFELT $ 60))
                                      (QREFELT $ 60)))
                                    (QREFELT $ 65)))
                         $)))
                 ('T
                  (SEQ
                   (LETT |tmpZag|
                         (SPADCALL (|SPADfirst| |args|) (QREFELT $ 62)))
                   (EXIT
                    (COND
                     ((> (LENGTH |args|) 1)
                      (SPADCALL "(frac "
                                (SPADCALL
                                 (|TMFORM;formatExpr| (|SPADfirst| |tmpZag|)
                                  (QREFELT $ 16) $)
                                 (SPADCALL "(concat "
                                           (SPADCALL
                                            (|TMFORM;formatExpr|
                                             (|SPADfirst| (CDR |tmpZag|))
                                             (QREFELT $ 16) $)
                                            (SPADCALL " \"+\" "
                                                      (SPADCALL
                                                       (|TMFORM;formatZag|
                                                        (CDR |args|) $)
                                                       "))" (QREFELT $ 60))
                                                      (QREFELT $ 60))
                                            (QREFELT $ 60))
                                           (QREFELT $ 60))
                                 (QREFELT $ 60))
                                (QREFELT $ 60)))
                     ('T
                      (SPADCALL "(frac "
                                (SPADCALL
                                 (|TMFORM;formatExpr| (|SPADfirst| |tmpZag|)
                                  (QREFELT $ 16) $)
                                 (SPADCALL
                                  (|TMFORM;formatExpr|
                                   (|SPADfirst| (CDR |tmpZag|)) (QREFELT $ 16)
                                   $)
                                  ")" (QREFELT $ 60))
                                 (QREFELT $ 60))
                                (QREFELT $ 60))))))))))) 

(SDEFUN |TMFORM;formatExpr|
        ((|expr| |OutputForm|) (|prec| |Integer|) ($ |String|))
        (SPROG
         ((|op| (|Symbol|)) (|nargs| (|Integer|))
          (|args| (|List| (|OutputForm|))) (|opf| (|OutputForm|))
          (|i| (|Integer|)) (|nstr| (|String|)) (|str| (|String|))
          (|len| (|Integer|)) (|intSplitLen| (|Integer|)))
         (SEQ (LETT |intSplitLen| 20)
              (EXIT
               (COND
                ((SPADCALL |expr| (QREFELT $ 66))
                 (SEQ (LETT |str| (|TMFORM;stringify| |expr| $))
                      (LETT |len| (QCSIZE |str|))
                      (EXIT
                       (COND
                        ((SPADCALL |expr| (QREFELT $ 67))
                         (SEQ (LETT |i| (SPADCALL |expr| (QREFELT $ 68)))
                              (EXIT
                               (COND
                                ((OR (< |i| 0) (> |i| 9))
                                 (|TMFORM;group|
                                  (SEQ (LETT |nstr| "")
                                       (SEQ G190
                                            (COND
                                             ((NULL
                                               (> (LETT |len| (QCSIZE |str|))
                                                  |intSplitLen|))
                                              (GO G191)))
                                            (SEQ
                                             (LETT |nstr|
                                                   (SPADCALL
                                                    (LIST |nstr| " "
                                                          (SPADCALL |str|
                                                                    (SPADCALL 1
                                                                              |intSplitLen|
                                                                              (QREFELT
                                                                               $
                                                                               40))
                                                                    (QREFELT $
                                                                             41)))
                                                    (QREFELT $ 43)))
                                             (EXIT
                                              (LETT |str|
                                                    (SPADCALL |str|
                                                              (SPADCALL
                                                               (+ |intSplitLen|
                                                                  1)
                                                               (QREFELT $ 69))
                                                              (QREFELT $
                                                                       41)))))
                                            NIL (GO G190) G191 (EXIT NIL))
                                       (EXIT
                                        (COND
                                         ((SPADCALL |nstr| (QREFELT $ 70))
                                          (SPADCALL (LIST " \"" |str| "\" ")
                                                    (QREFELT $ 43)))
                                         (#1='T
                                          (SEQ
                                           (LETT |nstr|
                                                 (COND
                                                  ((SPADCALL |str|
                                                             (QREFELT $ 70))
                                                   |nstr|)
                                                  (#1#
                                                   (SPADCALL
                                                    (LIST |nstr| " " |str|)
                                                    (QREFELT $ 43)))))
                                           (EXIT
                                            (SPADCALL
                                             (LIST
                                              (SPADCALL |nstr|
                                                        (SPADCALL 2
                                                                  (QREFELT $
                                                                           69))
                                                        (QREFELT $ 41)))
                                             (QREFELT $ 43))))))))
                                  $))
                                ('T
                                 (SPADCALL (LIST " \"" |str| "\" ")
                                           (QREFELT $ 43)))))))
                        ((EQUAL |str| "%pi") "<mathpi>")
                        ((EQUAL |str| "%e") "<mathe>")
                        ((EQUAL |str| "%i") "<mathi>")
                        ((EQUAL |str| "infinity") "<infty>")
                        (#1#
                         (SEQ
                          (COND
                           ((> |len| 0)
                            (COND
                             ((|eql_SI| (SPADCALL |str| 1 (QREFELT $ 72))
                                        (|STR_to_CHAR| "%"))
                              (EXIT
                               (SPADCALL (LIST " \"" |str| "\" ")
                                         (QREFELT $ 43)))))))
                          (COND
                           ((> |len| 0)
                            (COND
                             ((|eql_SI| (SPADCALL |str| 1 (QREFELT $ 72))
                                        (|STR_to_CHAR| "\""))
                              (EXIT
                               (SPADCALL
                                (LIST "(text (concat " "\"\\\"\" "
                                      (SPADCALL
                                       (LIST "(math "
                                             (|TMFORM;utf2cork| |str| $) ")")
                                       (QREFELT $ 43))
                                      " \"\\\"\") )")
                                (QREFELT $ 43)))))))
                          (COND
                           ((EQL |len| 1)
                            (COND
                             ((|eql_SI| (SPADCALL |str| 1 (QREFELT $ 72))
                                        (|STR_to_CHAR| " "))
                              (EXIT " ")))))
                          (COND
                           ((SPADCALL |expr| (QREFELT $ 73))
                            (SEQ (LETT |op| (SPADCALL |expr| (QREFELT $ 74)))
                                 (LETT |i|
                                       (SPADCALL |op| (QREFELT $ 27)
                                                 (QREFELT $ 55)))
                                 (EXIT
                                  (COND
                                   ((> |i| 0)
                                    (SPADCALL (QREFELT $ 28) |i|
                                              (QREFELT $ 76))))))))
                          (LETT |i|
                                (SPADCALL (|STR_to_CHAR| " ") |str|
                                          (QREFELT $ 78)))
                          (EXIT
                           (COND
                            ((> |i| 0)
                             (SPADCALL (LIST " \"" |str| "\" ")
                                       (QREFELT $ 43)))
                            (#1#
                             (|TMFORM;group|
                              (|TMFORM;utf2cork|
                               (SPADCALL (LIST " \"" |str| "\" ")
                                         (QREFELT $ 43))
                               $)
                              $))))))))))
                (#1#
                 (SEQ (LETT |opf| (SPADCALL |expr| (QREFELT $ 79)))
                      (LETT |args| (SPADCALL |expr| (QREFELT $ 62)))
                      (LETT |nargs| (LENGTH |args|))
                      (EXIT
                       (COND
                        ((SPADCALL |opf| (QREFELT $ 73))
                         (SEQ (LETT |op| (SPADCALL |opf| (QREFELT $ 74)))
                              (EXIT
                               (COND
                                ((SPADCALL |op| (QREFELT $ 26) (QREFELT $ 80))
                                 (|TMFORM;formatSpecial| |op| |args| |prec| $))
                                ((SPADCALL |op| (QREFELT $ 24) (QREFELT $ 80))
                                 (|TMFORM;formatPlex| |op| |args| |prec| $))
                                ((EQL 0 |nargs|)
                                 (|TMFORM;formatNullary| |op| $))
                                (#1#
                                 (SEQ
                                  (COND
                                   ((EQL 1 |nargs|)
                                    (COND
                                     ((SPADCALL |op| (QREFELT $ 17)
                                                (QREFELT $ 80))
                                      (EXIT
                                       (|TMFORM;formatUnary| |op|
                                        (|SPADfirst| |args|) |prec| $))))))
                                  (COND
                                   ((EQL 2 |nargs|)
                                    (COND
                                     ((SPADCALL |op| (QREFELT $ 19)
                                                (QREFELT $ 80))
                                      (EXIT
                                       (|TMFORM;formatBinary| |op| |args|
                                        |prec| $))))))
                                  (EXIT
                                   (COND
                                    ((SPADCALL |op| (QREFELT $ 23)
                                               (QREFELT $ 80))
                                     (|TMFORM;formatNaryNoGroup| |op| "" 0
                                      |args| |prec| $))
                                    ((SPADCALL |op| (QREFELT $ 21)
                                               (QREFELT $ 80))
                                     (|TMFORM;formatNary| |op| "" 0 |args|
                                      |prec| $))
                                    (#1#
                                     (|TMFORM;formatFunction| |opf| |args|
                                      |prec| $))))))))))
                        (#1#
                         (|TMFORM;formatFunction| |opf| |args| |prec|
                          $))))))))))) 

(DECLAIM (NOTINLINE |TexmacsFormat;|)) 

(DEFUN |TexmacsFormat| ()
  (SPROG NIL
         (PROG (#1=#:G948)
           (RETURN
            (COND
             ((LETT #1# (HGET |$ConstructorCache| '|TexmacsFormat|))
              (|CDRwithIncrement| (CDAR #1#)))
             ('T
              (UNWIND-PROTECT
                  (PROG1
                      (CDDAR
                       (HPUT |$ConstructorCache| '|TexmacsFormat|
                             (LIST (CONS NIL (CONS 1 (|TexmacsFormat;|))))))
                    (LETT #1# T))
                (COND
                 ((NOT #1#) (HREM |$ConstructorCache| '|TexmacsFormat|)))))))))) 

(DEFUN |TexmacsFormat;| ()
  (SPROG ((|dv$| NIL) ($ NIL) (|pv$| NIL))
         (PROGN
          (LETT |dv$| '(|TexmacsFormat|))
          (LETT $ (GETREFV 82))
          (QSETREFV $ 0 |dv$|)
          (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL)))
          (|haddProp| |$ConstructorCache| '|TexmacsFormat| NIL (CONS 1 $))
          (|stuffDomainSlots| $)
          (SETF |pv$| (QREFELT $ 3))
          (QSETREFV $ 13 (|TMFORM;CorkFunc| $))
          (QSETREFV $ 14 " \\  ")
          (QSETREFV $ 15 1000000)
          (QSETREFV $ 16 0)
          (QSETREFV $ 17 '(-))
          (QSETREFV $ 18 '(710))
          (QSETREFV $ 19 '(+-> |\|| ^ / = ~= < <= > >= OVER LET))
          (QSETREFV $ 20 (LIST 0 0 900 700 400 400 400 400 400 400 700 125))
          (QSETREFV $ 21 '(- + * |,| |;| ROW STRSEP TENSOR))
          (QSETREFV $ 22 (LIST 700 700 800 110 110 0 0 850))
          (QSETREFV $ 23 '(ROW))
          (QSETREFV $ 24 '(SIGMA SIGMA2 PI PI2 INTSIGN))
          (QSETREFV $ 25 '(750 750 750 750 700))
          (QSETREFV $ 26
                    '(MATRIX BRACKET BRACE CONCATB VCONCAT AGGLST CONCAT
                      OVERBAR ROOT SUB TAG SUPERSUB ZAG AGGSET SC PAREN SEGMENT
                      QUOTE |theMap| SLASH PRIME BOX EQUATNUM BINOMIAL
                      NOTHING))
          (QSETREFV $ 27
                    '(|cos| |cot| |csc| |log| |sec| |sin| |tan| |cosh| |coth|
                      |csch| |sech| |sinh| |tanh| |acos| |asin| |atan| |erf|
                      |...| $ |infinity| |Gamma|))
          (QSETREFV $ 28
                    (LIST "\"cos\"" "\"cot\"" "\"csc\"" "\"log\"" "\"sec\""
                          "\"sin\"" "\"tan\"" "\"cosh\"" "\"coth\"" "\"csch\""
                          "\"sech\"" "\"sinh\"" "\"tanh\"" "\"arccos\""
                          "\"arcsin\"" "\"arctan\"" "\"erf\"" "\"<cdots>\""
                          "\"$\"" "\"<infty>\"" "\"<Gamma>\""))
          $))) 

(MAKEPROP '|TexmacsFormat| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|Integer|) (|SingleInteger|)
              (0 . |coerce|) (|Record| (|:| |key| 7) (|:| |entry| 32))
              (|List| 9) (|HashTable| 7 32 '"EQ") (5 . |construct|) '|Cork|
              '|blank| '|maxPrec| '|minPrec| '|unaryOps| '|unaryPrecs|
              '|binaryOps| '|binaryPrecs| '|naryOps| '|naryPrecs| '|naryNGOps|
              '|plexOps| '|plexPrecs| '|specialOps| '|specialStrings|
              '|specialStringsInMML| (|OutputForm|) (|OutputFormTools|)
              (10 . |precondition|) (|String|) |TMFORM;coerce;OfS;2|
              |TMFORM;coerceL;OfS;4| (|Void|) (15 . |void|)
              |TMFORM;display;SV;5| (19 . |position|) (|UniversalSegment| 6)
              (26 . |segment|) (32 . |elt|) (|List| $) (38 . |concat|)
              (|Union| 32 '"failed") (43 . |search|) (|NumberFormats|)
              (49 . |FormatRadix|) (|List| 29) (55 . |second|) (60 . |coerce|)
              (65 . |elt|) (|Symbol|) (71 . |string|) (|List| 52)
              (76 . |position|) (|List| 6) (82 . |elt|) (|Boolean|) (88 . ~=)
              (94 . |elt|) (100 . |has_op?|) (106 . |arguments|)
              (111 . |is_symbol?|) (117 . ~=) (123 . |elt|) (129 . |atom?|)
              (134 . |integer?|) (139 . |integer|) (144 . |segment|)
              (149 . |empty?|) (|Character|) (154 . |elt|) (160 . |symbol?|)
              (165 . |symbol|) (|List| 32) (170 . |elt|) (176 . |char|)
              (181 . |position|) (187 . |operator|) (192 . |member?|)
              (|HashState|))
           '#(~= 198 |latex| 204 |hashUpdate!| 209 |hash| 215 |display| 220
              |coerceL| 225 |coerce| 230 = 240)
           'NIL
           (CONS (|makeByteWordVec2| 1 '(0 0 0))
                 (CONS '#(|SetCategory&| |BasicType&| NIL)
                       (CONS
                        '#((|SetCategory|) (|BasicType|) (|CoercibleTo| 29))
                        (|makeByteWordVec2| 81
                                            '(1 7 0 6 8 1 11 0 10 12 1 30 29 29
                                              31 0 35 0 36 3 32 6 0 0 6 38 2 39
                                              0 6 6 40 2 32 0 0 39 41 1 32 0 42
                                              43 2 11 44 7 0 45 2 46 32 6 6 47
                                              1 48 29 0 49 1 32 29 0 50 2 48 29
                                              0 6 51 1 52 32 0 53 2 54 6 52 0
                                              55 2 56 6 0 6 57 2 6 58 0 0 59 2
                                              32 0 0 0 60 2 30 58 29 52 61 1 30
                                              48 29 62 2 30 58 29 52 63 2 52 58
                                              0 0 64 2 48 0 0 39 65 1 30 58 29
                                              66 1 30 58 29 67 1 30 6 29 68 1
                                              39 0 6 69 1 32 58 0 70 2 32 71 0
                                              6 72 1 30 58 29 73 1 30 52 29 74
                                              2 75 32 0 6 76 1 71 0 32 77 2 32
                                              6 71 0 78 1 30 29 29 79 2 54 58
                                              52 0 80 2 0 58 0 0 1 1 0 32 0 1 2
                                              0 81 81 0 1 1 0 7 0 1 1 0 35 32
                                              37 1 0 32 29 34 1 0 32 29 33 1 0
                                              29 0 1 2 0 58 0 0 1)))))
           '|lookupComplete|)) 

(MAKEPROP '|TexmacsFormat| 'NILADIC T) 
