PAS1IDS:='( (TOKTYPE . 129) (BSTK!* . 130) (THROWING!* . 131) 
(INITFORM!* . 132) (!*RAISE . 133) (INPUT . 134) (OUTPUT . 135) 
(!*ECHO . 136) (!.!  . 137) (QUOTE . 138) )
$
PAS1CSTS:='( )
$
PAS1LITS:='( )
$
PAS1FNS:='( (XCONS . XXCONS) (WRS . XWRS) (WRTOK . XWRTOK) 
(UNBINDTO . XUNBINDTO) (THROW . XTHROW) (TIMES2 . XTIMES2) 
(TERPRI . XTERPRI) (RPLACD . XRPLACD) (RPLACA . XRPLACA) 
(REMAINDER . XREMAINDER) (RECLAIM . XGCOLLECT) (READ . XREAD) (RDS . XRDS) 
(RDTOK . XRDTOK) (QUOTIENT . XQUOTIENT) (PRINT . XPRINT) (PLUS2 . XPLUS2) 
(OPEN . XOPEN) (NCONS . XNCONS) (MINUS . XMINUS) (LESSP . XLESSP) 
(GREATERP . XGREATERP) (GENSYM . GENSYM) (FASTSTAT . XFASTSTAT) 
(EXPLODE . EXPLODE) (EVAL . XEVAL) (DIVIDE . XDIVIDE) 
(DIFFERENCE . XDIFFERENCE) (CLOSE . XCLOSE) (CONS . XCONS) 
(COMPRESS . COMPRESS) (CODEP . XCODEP) (CDR . XCDR) (CATCH . XCATCH) 
(CAR . XCAR) (XAPPLY . XXAPPLY) (ADD1 . XADD1) (!*FIRST!-PROCEDURE . FIRSTP) 
(CAAR . PAS11) (CADR . PAS12) (CDAR . PAS13) (CDDR . PAS14) (CAAAAR . PAS15) 
(CAAADR . PAS16) (CAADAR . PAS17) (CAADDR . PAS18) (CADAAR . PAS19) 
(CADADR . PAS110) (CADDAR . PAS111) (CADDDR . PAS112) (CDAAAR . PAS113) 
(CDAADR . PAS114) (CDADAR . PAS115) (CDADDR . PAS116) (CDDAAR . PAS117) 
(CDDADR . PAS118) (CDDDAR . PAS119) (CDDDDR . PAS120) (CAAAR . PAS121) 
(CAADR . PAS122) (CADAR . PAS123) (CADDR . PAS124) (CDAAR . PAS125) 
(CDADR . PAS126) (CDDAR . PAS127) (CDDDR . PAS128) (PRIN2 . PAS129) 
(REVX . PAS130) (REV . PAS131) (EOFP . PAS132) (RLIST . PAS133) )
$
