anchor.diff:  (CL:PROGN (CL:DEFUN QUASIQUOTE-EXPAND (X) (CL:CAR (%QUASIQUOTE-EXPAND (CL:LIST X)))) (CL:SETF (CL:GETHASH #'QUASIQUOTE-EXPAND *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X NIL) (CL:CONS (CL:CONS 'CL:CAR (CL:CONS (CL:CONS '%QUASIQUOTE-EXPAND (CL:CONS (CL:CONS 'CL:LIST (CL:CONS 'X NIL)) NIL)) NIL)) NIL))))
   (CL:SETQ *QUASIQUOTE-EXPAND* #'QUASIQUOTE-EXPAND)
   (CL:PROGN (CL:DEFUN IDENTITY (X) X) (CL:SETF (CL:GETHASH #'IDENTITY *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X NIL) (CL:CONS 'X NIL))))
  -(CL:PROGN (CL:DEFUN + (CL:&REST X) (CL:LABELS ((G3655 (A) (? A (CL:APPLY (? (CONS? A) #'APPEND (STRING? A) #'STRING-CONCAT #'NUMBER+) X) (? (CL:CDR X) (CL:APPLY #'+ (CL:CDR X)))))) (G3655 (CL:CAR X)))) (CL:SETF (CL:GETHASH #'+ *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'CL:&REST (CL:CONS 'X NIL)) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS 'A NIL) (CL:CONS (CL:CONS '? (CL:CONS 'A (CL:CONS (CL:CONS 'CL:APPLY (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'CONS? (CL:CONS 'A NIL)) (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS 'APPEND NIL)) (CL:CONS (CL:CONS 'STRING? (CL:CONS 'A NIL)) (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS 'STRING-CONCAT NIL)) (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS 'NUMBER+ NIL)) NIL)))))) (CL:CONS 'X NIL))) (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'CL:CDR (CL:CONS 'X NIL)) (CL:CONS (CL:CONS 'CL:APPLY (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS '+ NIL)) (CL:CONS (CL:CONS 'CL:CDR (CL:CONS 'X NIL)) NIL))) NIL))) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS 'CL:CAR (CL:CONS 'X NIL)) NIL)) NIL))))
  +(CL:PROGN (CL:DEFUN + (CL:&REST X) (CL:LABELS ((G3653 (A) (? A (CL:APPLY (? (CONS? A) #'APPEND (STRING? A) #'STRING-CONCAT #'NUMBER+) X) (? (CL:CDR X) (CL:APPLY #'+ (CL:CDR X)))))) (G3653 (CL:CAR X)))) (CL:SETF (CL:GETHASH #'+ *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'CL:&REST (CL:CONS 'X NIL)) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS 'A NIL) (CL:CONS (CL:CONS '? (CL:CONS 'A (CL:CONS (CL:CONS 'CL:APPLY (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'CONS? (CL:CONS 'A NIL)) (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS 'APPEND NIL)) (CL:CONS (CL:CONS 'STRING? (CL:CONS 'A NIL)) (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS 'STRING-CONCAT NIL)) (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS 'NUMBER+ NIL)) NIL)))))) (CL:CONS 'X NIL))) (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'CL:CDR (CL:CONS 'X NIL)) (CL:CONS (CL:CONS 'CL:APPLY (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS '+ NIL)) (CL:CONS (CL:CONS 'CL:CDR (CL:CONS 'X NIL)) NIL))) NIL))) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS 'CL:CAR (CL:CONS 'X NIL)) NIL)) NIL))))
   (CL:PROGN (CL:DEFUN - (CL:&REST X) (CL:APPLY #'NUMBER- X)) (CL:SETF (CL:GETHASH #'- *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'CL:&REST (CL:CONS 'X NIL)) (CL:CONS (CL:CONS 'CL:APPLY (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS 'NUMBER- NIL)) (CL:CONS 'X NIL))) NIL))))
   (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'FUNCALL (CL:CONS (CL:CONS 'FUN (CL:CONS 'CL:&REST (CL:CONS 'ARGS NIL))) NIL)))) (CL:PROGN (CL:DEFUN FUNCALL (FUN CL:&REST ARGS) (CL:BLOCK FUNCALL (CL:BLOCK NIL (CL:APPLY FUN ARGS)))) (CL:SETF (CL:GETHASH #'FUNCALL *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'FUN (CL:CONS 'CL:&REST (CL:CONS 'ARGS NIL))) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'FUNCALL (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'CL:APPLY (CL:CONS 'FUN (CL:CONS 'ARGS NIL))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'FUNCALL))
   (CL:SETQ *FUNCTIONALS* (%NCONC (CL:CONS 'CAAR (CL:CONS 'CADR (CL:CONS 'CDAR (CL:CONS 'CDDR (CL:CONS 'CADAR (CL:CONS 'CDDAR (CL:CONS 'CAADAR (CL:CONS 'CADDR (CL:CONS 'CAADR (CL:CONS 'CDDDR (CL:CONS 'CDADAR (CL:CONS 'CAADDR (CL:CONS 'CADDAR (CL:CONS 'CDDDAR (CL:CONS 'CDDDDR (CL:CONS 'CADADR (CL:CONS 'CADADDR (CL:CONS 'CADADAR (CL:CONS 'CDDADAR NIL))))))))))))))))))) *FUNCTIONALS*))
  
positive.code: (CL:PROGN (CL:DEFUN CADADAR (LST) (CADR (CADR (CL:CAR LST)))) (CL:SETF (CL:GETHASH #'CADADAR *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'LST NIL) (CL:CONS (CL:CONS 'CADR (CL:CONS (CL:CONS 'CADR (CL:CONS (CL:CONS 'CL:CAR (CL:CONS 'LST NIL)) NIL)) NIL)) NIL))))
  (CL:PROGN (CL:DEFUN CDDADAR (LST) (CDDR (CADR (CL:CAR LST)))) (CL:SETF (CL:GETHASH #'CDDADAR *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'LST NIL) (CL:CONS (CL:CONS 'CDDR (CL:CONS (CL:CONS 'CADR (CL:CONS (CL:CONS 'CL:CAR (CL:CONS 'LST NIL)) NIL)) NIL)) NIL))))
  (CL:SETQ *FUNCTIONALS* (%NCONC (CL:CONS 'EQUAL NIL) *FUNCTIONALS*))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'EQUAL (CL:CONS (CL:CONS 'X (CL:CONS 'Y NIL)) NIL)))) (CL:PROGN (CL:DEFUN EQUAL (X Y) (CL:BLOCK EQUAL (CL:BLOCK NIL (? (CL:LABELS ((G3656 (~G1469) (? ~G1469 ~G1469 (CL:ATOM Y)))) (G3656 (CL:ATOM X))) (EQL X Y) (EQUAL (CL:CAR X) (CL:CAR Y)) (EQUAL (CL:CDR X) (CL:CDR Y)))))) (CL:SETF (CL:GETHASH #'EQUAL *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X (CL:CONS 'Y NIL)) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'EQUAL (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1469 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1469 (CL:CONS '~G1469 (CL:CONS (CL:CONS 'CL:ATOM (CL:CONS 'Y NIL)) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS 'CL:ATOM (CL:CONS 'X NIL)) NIL)) (CL:CONS (CL:CONS 'EQL (CL:CONS 'X (CL:CONS 'Y NIL))) (CL:CONS (CL:CONS 'EQUAL (CL:CONS (CL:CONS 'CL:CAR (CL:CONS 'X NIL)) (CL:CONS (CL:CONS 'CL:CAR (CL:CONS 'Y NIL)) NIL))) (CL:CONS (CL:CONS 'EQUAL (CL:CONS (CL:CONS 'CL:CDR (CL:CONS 'X NIL)) (CL:CONS (CL:CONS 'CL:CDR (CL:CONS 'Y NIL)) NIL))) NIL))))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'EQUAL))
  NIL
  NIL
  (CL:SETQ *FUNCTIONALS* (%NCONC (CL:CONS '>= (CL:CONS '<= (CL:CONS 'CHARACTER>= (CL:CONS 'CHARACTER<= (CL:CONS 'INTEGER>= (CL:CONS 'INTEGER<= (CL:CONS 'NUMBER>= (CL:CONS 'NUMBER<= NIL)))))))) *FUNCTIONALS*))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS '>= (CL:CONS (CL:CONS 'N (CL:CONS 'CL:&REST (CL:CONS 'X NIL))) NIL)))) (CL:PROGN (CL:DEFUN >= (N CL:&REST X) (CL:BLOCK >= (CL:BLOCK NIL (CL:BLOCK NIL (CL:LABELS ((G3657 (~G1480) (CL:LABELS ((G3658 (I) (CL:TAGBODY ~G1478 (? (NOT ~G1480) (CL:GO ~G1479)) (CL:SETQ I (CL:CAR ~G1480)) (CL:LABELS ((G3659 (~G1470) (? ~G1470 ~G1470 (CL:LABELS ((G3660 (~G1471) (? ~G1471 ~G1471 (CL:RETURN-FROM NIL NIL)))) (G3660 (> N I)))))) (G3659 (== N I))) (CL:SETQ N I) (CL:SETQ ~G1480 (CL:CDR ~G1480)) (CL:GO ~G1478) ~G1479 (CL:RETURN-FROM NIL (CL:PROGN T))))) (G3658 NIL)))) (G3657 X)))))) (CL:SETF (CL:GETHASH #'>= *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'N (CL:CONS 'CL:&REST (CL:CONS 'X NIL))) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS '>= (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'LET* (CL:CONS (CL:CONS (CL:CONS '~G1480 (CL:CONS 'X NIL)) (CL:CONS (CL:CONS 'I (CL:CONS NIL NIL)) NIL)) (CL:CONS (CL:CONS 'CL:TAGBODY (CL:CONS '~G1478 (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'NOT (CL:CONS '~G1480 NIL)) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1479 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'I (CL:CONS (CL:CONS 'CL:CAR (CL:CONS '~G1480 NIL)) NIL))) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1470 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1470 (CL:CONS '~G1470 (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1471 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1471 (CL:CONS '~G1471 (CL:CONS (CL:CONS 'CL:RETURN-FROM (CL:CONS NIL (CL:CONS NIL NIL))) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS '> (CL:CONS 'N (CL:CONS 'I NIL))) NIL)) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS '== (CL:CONS 'N (CL:CONS 'I NIL))) NIL)) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'N (CL:CONS 'I NIL))) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS '~G1480 (CL:CONS (CL:CONS 'CL:CDR (CL:CONS '~G1480 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1478 NIL)) (CL:CONS '~G1479 (CL:CONS (CL:CONS 'CL:RETURN (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS T NIL)) NIL)) NIL)))))))))) NIL))) NIL))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL '>=))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS '<= (CL:CONS (CL:CONS 'N (CL:CONS 'CL:&REST (CL:CONS 'X NIL))) NIL)))) (CL:PROGN (CL:DEFUN <= (N CL:&REST X) (CL:BLOCK <= (CL:BLOCK NIL (CL:BLOCK NIL (CL:LABELS ((G3661 (~G1483) (CL:LABELS ((G3662 (I) (CL:TAGBODY ~G1481 (? (NOT ~G1483) (CL:GO ~G1482)) (CL:SETQ I (CL:CAR ~G1483)) (CL:LABELS ((G3663 (~G1472) (? ~G1472 ~G1472 (CL:LABELS ((G3664 (~G1473) (? ~G1473 ~G1473 (CL:RETURN-FROM NIL NIL)))) (G3664 (< N I)))))) (G3663 (== N I))) (CL:SETQ N I) (CL:SETQ ~G1483 (CL:CDR ~G1483)) (CL:GO ~G1481) ~G1482 (CL:RETURN-FROM NIL (CL:PROGN T))))) (G3662 NIL)))) (G3661 X)))))) (CL:SETF (CL:GETHASH #'<= *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'N (CL:CONS 'CL:&REST (CL:CONS 'X NIL))) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS '<= (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'LET* (CL:CONS (CL:CONS (CL:CONS '~G1483 (CL:CONS 'X NIL)) (CL:CONS (CL:CONS 'I (CL:CONS NIL NIL)) NIL)) (CL:CONS (CL:CONS 'CL:TAGBODY (CL:CONS '~G1481 (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'NOT (CL:CONS '~G1483 NIL)) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1482 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'I (CL:CONS (CL:CONS 'CL:CAR (CL:CONS '~G1483 NIL)) NIL))) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1472 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1472 (CL:CONS '~G1472 (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1473 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1473 (CL:CONS '~G1473 (CL:CONS (CL:CONS 'CL:RETURN-FROM (CL:CONS NIL (CL:CONS NIL NIL))) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS '< (CL:CONS 'N (CL:CONS 'I NIL))) NIL)) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS '== (CL:CONS 'N (CL:CONS 'I NIL))) NIL)) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'N (CL:CONS 'I NIL))) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS '~G1483 (CL:CONS (CL:CONS 'CL:CDR (CL:CONS '~G1483 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1481 NIL)) (CL:CONS '~G1482 (CL:CONS (CL:CONS 'CL:RETURN (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS T NIL)) NIL)) NIL)))))))))) NIL))) NIL))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL '<=))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'CHARACTER>= (CL:CONS (CL:CONS 'X (CL:CONS 'Y NIL)) NIL)))) (CL:PROGN (CL:DEFUN CHARACTER>= (X Y) (CL:BLOCK CHARACTER>= (CL:BLOCK NIL (CL:LABELS ((G3665 (~G1474) (? ~G1474 ~G1474 (CHARACTER> X Y)))) (G3665 (CHARACTER== X Y)))))) (CL:SETF (CL:GETHASH #'CHARACTER>= *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X (CL:CONS 'Y NIL)) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'CHARACTER>= (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1474 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1474 (CL:CONS '~G1474 (CL:CONS (CL:CONS 'CHARACTER> (CL:CONS 'X (CL:CONS 'Y NIL))) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS 'CHARACTER== (CL:CONS 'X (CL:CONS 'Y NIL))) NIL)) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'CHARACTER>=))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'CHARACTER<= (CL:CONS (CL:CONS 'X (CL:CONS 'Y NIL)) NIL)))) (CL:PROGN (CL:DEFUN CHARACTER<= (X Y) (CL:BLOCK CHARACTER<= (CL:BLOCK NIL (CL:LABELS ((G3666 (~G1475) (? ~G1475 ~G1475 (CHARACTER< X Y)))) (G3666 (CHARACTER== X Y)))))) (CL:SETF (CL:GETHASH #'CHARACTER<= *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X (CL:CONS 'Y NIL)) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'CHARACTER<= (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1475 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1475 (CL:CONS '~G1475 (CL:CONS (CL:CONS 'CHARACTER< (CL:CONS 'X (CL:CONS 'Y NIL))) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS 'CHARACTER== (CL:CONS 'X (CL:CONS 'Y NIL))) NIL)) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'CHARACTER<=))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'INTEGER>= (CL:CONS (CL:CONS 'X (CL:CONS 'Y NIL)) NIL)))) (CL:PROGN (CL:DEFUN INTEGER>= (X Y) (CL:BLOCK INTEGER>= (CL:BLOCK NIL (CL:LABELS ((G3667 (~G1476) (? ~G1476 ~G1476 (INTEGER> X Y)))) (G3667 (INTEGER== X Y)))))) (CL:SETF (CL:GETHASH #'INTEGER>= *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X (CL:CONS 'Y NIL)) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'INTEGER>= (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1476 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1476 (CL:CONS '~G1476 (CL:CONS (CL:CONS 'INTEGER> (CL:CONS 'X (CL:CONS 'Y NIL))) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS 'INTEGER== (CL:CONS 'X (CL:CONS 'Y NIL))) NIL)) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'INTEGER>=))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'INTEGER<= (CL:CONS (CL:CONS 'X (CL:CONS 'Y NIL)) NIL)))) (CL:PROGN (CL:DEFUN INTEGER<= (X Y) (CL:BLOCK INTEGER<= (CL:BLOCK NIL (CL:LABELS ((G3668 (~G1477) (? ~G1477 ~G1477 (INTEGER< X Y)))) (G3668 (INTEGER== X Y)))))) (CL:SETF (CL:GETHASH #'INTEGER<= *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X (CL:CONS 'Y NIL)) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'INTEGER<= (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1477 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1477 (CL:CONS '~G1477 (CL:CONS (CL:CONS 'INTEGER< (CL:CONS 'X (CL:CONS 'Y NIL))) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS 'INTEGER== (CL:CONS 'X (CL:CONS 'Y NIL))) NIL)) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'INTEGER<=))
  (CL:SETQ *FUNCTIONALS* (%NCONC (CL:CONS 'ZERO? (CL:CONS 'EVEN? (CL:CONS 'ODD? (CL:CONS 'END? (CL:CONS 'KEYWORD? NIL))))) *FUNCTIONALS*))
  NIL
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'ZERO? (CL:CONS (CL:CONS 'X NIL) NIL)))) (CL:PROGN (CL:DEFUN ZERO? (X) (CL:BLOCK ZERO? (CL:BLOCK NIL (== 0 X)))) (CL:SETF (CL:GETHASH #'ZERO? *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X NIL) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'ZERO? (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS '== (CL:CONS 0 (CL:CONS 'X NIL))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'ZERO?))
  
negative.code: (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'CHAR-UPCASE (CL:CONS (CL:CONS 'C NIL) NIL)))) (CL:PROGN (CL:DEFUN CHAR-UPCASE (C) (CL:BLOCK CHAR-UPCASE (CL:BLOCK NIL (? (LOWER-CASE? C) (CHARACTER+ C (CHARACTER- #\A #\a)) C)))) (CL:SETF (CL:GETHASH #'CHAR-UPCASE *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'C NIL) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'CHAR-UPCASE (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'LOWER-CASE? (CL:CONS 'C NIL)) (CL:CONS (CL:CONS 'CHARACTER+ (CL:CONS 'C (CL:CONS (CL:CONS 'CHARACTER- (CL:CONS #\A (CL:CONS #\a NIL))) NIL))) (CL:CONS 'C NIL)))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'CHAR-UPCASE))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'CHAR-DOWNCASE (CL:CONS (CL:CONS 'C NIL) NIL)))) (CL:PROGN (CL:DEFUN CHAR-DOWNCASE (C) (CL:BLOCK CHAR-DOWNCASE (CL:BLOCK NIL (? (UPPER-CASE? C) (CHARACTER+ C (CHARACTER- #\a #\A)) C)))) (CL:SETF (CL:GETHASH #'CHAR-DOWNCASE *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'C NIL) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'CHAR-DOWNCASE (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'UPPER-CASE? (CL:CONS 'C NIL)) (CL:CONS (CL:CONS 'CHARACTER+ (CL:CONS 'C (CL:CONS (CL:CONS 'CHARACTER- (CL:CONS #\a (CL:CONS #\A NIL))) NIL))) (CL:CONS 'C NIL)))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'CHAR-DOWNCASE))
  (CL:SETQ *FUNCTIONALS* (%NCONC (CL:CONS 'LOWER-CASE? (CL:CONS 'UPPER-CASE? (CL:CONS 'ALPHA-CHAR? (CL:CONS 'DIGIT-CHAR? (CL:CONS 'ALPHANUMERIC? NIL))))) *FUNCTIONALS*))
  (CL:BLOCK NIL (%DEFMACRO DEF-REST-PREDICATE (NAME ITER ARGS TEST-EXPR) (CL:BLOCK DEF-REST-PREDICATE (CL:LABELS ((G3672 (X) (CL:CONS 'DEFUN (CL:CONS NAME (CL:CONS (CL:CONS 'CL:&REST (CL:CONS X (APPEND ARGS NIL))) (CL:CONS (CL:CONS '@ (CL:CONS (CL:CONS ITER (CL:CONS X (CL:CONS T NIL))) (CL:CONS (CL:CONS '|\|| (CL:CONS TEST-EXPR (CL:CONS (CL:CONS 'CL:RETURN (CL:CONS NIL NIL)) NIL))) NIL))) NIL)))))) (G3672 (GENSYM))))))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'LOWER-CASE? (CL:CONS (CL:CONS 'CL:&REST (CL:CONS '~G1478 NIL)) NIL)))) (CL:PROGN (CL:DEFUN LOWER-CASE? (CL:&REST ~G1478) (CL:BLOCK LOWER-CASE? (CL:BLOCK NIL (CL:BLOCK NIL (CL:LABELS ((G3673 (~G1494) (CL:LABELS ((G3674 (C) (CL:TAGBODY ~G1492 (? (NOT ~G1494) (CL:GO ~G1493)) (CL:SETQ C (CL:CAR ~G1494)) (CL:LABELS ((G3675 (~G1488) (? ~G1488 ~G1488 (CL:RETURN-FROM NIL NIL)))) (G3675 (RANGE? C #\a #\z))) (CL:SETQ ~G1494 (CL:CDR ~G1494)) (CL:GO ~G1492) ~G1493 (CL:RETURN-FROM NIL (CL:PROGN T))))) (G3674 NIL)))) (G3673 ~G1478)))))) (CL:SETF (CL:GETHASH #'LOWER-CASE? *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'CL:&REST (CL:CONS '~G1478 NIL)) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'LOWER-CASE? (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'LET* (CL:CONS (CL:CONS (CL:CONS '~G1494 (CL:CONS '~G1478 NIL)) (CL:CONS (CL:CONS 'C (CL:CONS NIL NIL)) NIL)) (CL:CONS (CL:CONS 'CL:TAGBODY (CL:CONS '~G1492 (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'NOT (CL:CONS '~G1494 NIL)) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1493 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'C (CL:CONS (CL:CONS 'CL:CAR (CL:CONS '~G1494 NIL)) NIL))) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1488 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1488 (CL:CONS '~G1488 (CL:CONS (CL:CONS 'CL:RETURN-FROM (CL:CONS NIL (CL:CONS NIL NIL))) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS 'RANGE? (CL:CONS 'C (CL:CONS #\a (CL:CONS #\z NIL)))) NIL)) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS '~G1494 (CL:CONS (CL:CONS 'CL:CDR (CL:CONS '~G1494 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1492 NIL)) (CL:CONS '~G1493 (CL:CONS (CL:CONS 'CL:RETURN (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS T NIL)) NIL)) NIL))))))))) NIL))) NIL))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'LOWER-CASE?))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'UPPER-CASE? (CL:CONS (CL:CONS 'CL:&REST (CL:CONS '~G1479 NIL)) NIL)))) (CL:PROGN (CL:DEFUN UPPER-CASE? (CL:&REST ~G1479) (CL:BLOCK UPPER-CASE? (CL:BLOCK NIL (CL:BLOCK NIL (CL:LABELS ((G3676 (~G1497) (CL:LABELS ((G3677 (C) (CL:TAGBODY ~G1495 (? (NOT ~G1497) (CL:GO ~G1496)) (CL:SETQ C (CL:CAR ~G1497)) (CL:LABELS ((G3678 (~G1489) (? ~G1489 ~G1489 (CL:RETURN-FROM NIL NIL)))) (G3678 (RANGE? C #\A #\Z))) (CL:SETQ ~G1497 (CL:CDR ~G1497)) (CL:GO ~G1495) ~G1496 (CL:RETURN-FROM NIL (CL:PROGN T))))) (G3677 NIL)))) (G3676 ~G1479)))))) (CL:SETF (CL:GETHASH #'UPPER-CASE? *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'CL:&REST (CL:CONS '~G1479 NIL)) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'UPPER-CASE? (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'LET* (CL:CONS (CL:CONS (CL:CONS '~G1497 (CL:CONS '~G1479 NIL)) (CL:CONS (CL:CONS 'C (CL:CONS NIL NIL)) NIL)) (CL:CONS (CL:CONS 'CL:TAGBODY (CL:CONS '~G1495 (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'NOT (CL:CONS '~G1497 NIL)) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1496 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'C (CL:CONS (CL:CONS 'CL:CAR (CL:CONS '~G1497 NIL)) NIL))) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1489 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1489 (CL:CONS '~G1489 (CL:CONS (CL:CONS 'CL:RETURN-FROM (CL:CONS NIL (CL:CONS NIL NIL))) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS 'RANGE? (CL:CONS 'C (CL:CONS #\A (CL:CONS #\Z NIL)))) NIL)) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS '~G1497 (CL:CONS (CL:CONS 'CL:CDR (CL:CONS '~G1497 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1495 NIL)) (CL:CONS '~G1496 (CL:CONS (CL:CONS 'CL:RETURN (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS T NIL)) NIL)) NIL))))))))) NIL))) NIL))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'UPPER-CASE?))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'ALPHA-CHAR? (CL:CONS (CL:CONS 'CL:&REST (CL:CONS '~G1481 NIL)) NIL)))) (CL:PROGN (CL:DEFUN ALPHA-CHAR? (CL:&REST ~G1481) (CL:BLOCK ALPHA-CHAR? (CL:BLOCK NIL (CL:BLOCK NIL (CL:LABELS ((G3679 (~G1500) (CL:LABELS ((G3680 (C) (CL:TAGBODY ~G1498 (? (NOT ~G1500) (CL:GO ~G1499)) (CL:SETQ C (CL:CAR ~G1500)) (CL:LABELS ((G3681 (~G1490) (? ~G1490 ~G1490 (CL:RETURN-FROM NIL NIL)))) (G3681 (CL:LABELS ((G3682 (~G1480) (? ~G1480 ~G1480 (UPPER-CASE? C)))) (G3682 (LOWER-CASE? C))))) (CL:SETQ ~G1500 (CL:CDR ~G1500)) (CL:GO ~G1498) ~G1499 (CL:RETURN-FROM NIL (CL:PROGN T))))) (G3680 NIL)))) (G3679 ~G1481)))))) (CL:SETF (CL:GETHASH #'ALPHA-CHAR? *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'CL:&REST (CL:CONS '~G1481 NIL)) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'ALPHA-CHAR? (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'LET* (CL:CONS (CL:CONS (CL:CONS '~G1500 (CL:CONS '~G1481 NIL)) (CL:CONS (CL:CONS 'C (CL:CONS NIL NIL)) NIL)) (CL:CONS (CL:CONS 'CL:TAGBODY (CL:CONS '~G1498 (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'NOT (CL:CONS '~G1500 NIL)) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1499 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'C (CL:CONS (CL:CONS 'CL:CAR (CL:CONS '~G1500 NIL)) NIL))) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1490 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1490 (CL:CONS '~G1490 (CL:CONS (CL:CONS 'CL:RETURN-FROM (CL:CONS NIL (CL:CONS NIL NIL))) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1480 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1480 (CL:CONS '~G1480 (CL:CONS (CL:CONS 'UPPER-CASE? (CL:CONS 'C NIL)) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS 'LOWER-CASE? (CL:CONS 'C NIL)) NIL)) NIL)) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS '~G1500 (CL:CONS (CL:CONS 'CL:CDR (CL:CONS '~G1500 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1498 NIL)) (CL:CONS '~G1499 (CL:CONS (CL:CONS 'CL:RETURN (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS T NIL)) NIL)) NIL))))))))) NIL))) NIL))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'ALPHA-CHAR?))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'DECIMAL-DIGIT? (CL:CONS (CL:CONS 'X NIL) NIL)))) (CL:PROGN (CL:DEFUN DECIMAL-DIGIT? (X) (CL:BLOCK DECIMAL-DIGIT? (CL:BLOCK NIL (RANGE? X #\0 #\9)))) (CL:SETF (CL:GETHASH #'DECIMAL-DIGIT? *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X NIL) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'DECIMAL-DIGIT? (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'RANGE? (CL:CONS 'X (CL:CONS #\0 (CL:CONS #\9 NIL)))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'DECIMAL-DIGIT?))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS '%NONDECIMAL-DIGIT? (CL:CONS (CL:CONS 'X (CL:CONS 'START (CL:CONS 'BASE NIL))) NIL)))) (CL:PROGN (CL:DEFUN %NONDECIMAL-DIGIT? (X START BASE) (CL:BLOCK %NONDECIMAL-DIGIT? (CL:BLOCK NIL (RANGE? X START (CHARACTER+ START (CHARACTER- BASE 10)))))) (CL:SETF (CL:GETHASH #'%NONDECIMAL-DIGIT? *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X (CL:CONS 'START (CL:CONS 'BASE NIL))) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS '%NONDECIMAL-DIGIT? (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'RANGE? (CL:CONS 'X (CL:CONS 'START (CL:CONS (CL:CONS 'CHARACTER+ (CL:CONS 'START (CL:CONS (CL:CONS 'CHARACTER- (CL:CONS 'BASE (CL:CONS 10 NIL))) NIL))) NIL)))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL '%NONDECIMAL-DIGIT?))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'NONDECIMAL-DIGIT? (CL:CONS (CL:CONS 'X (CL:CONS 'CL:&KEY (CL:CONS (CL:CONS 'BASE (CL:CONS 10 NIL)) NIL))) NIL)))) (CL:PROGN (CL:DEFUN NONDECIMAL-DIGIT? (X CL:&KEY (BASE 10)) (CL:BLOCK NONDECIMAL-DIGIT? (CL:BLOCK NIL (? (< 10 BASE) (CL:LABELS ((G3683 (~G1482) (? ~G1482 ~G1482 (%NONDECIMAL-DIGIT? X #\A BASE)))) (G3683 (%NONDECIMAL-DIGIT? X #\a BASE))))))) (CL:SETF (CL:GETHASH #'NONDECIMAL-DIGIT? *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X (CL:CONS 'CL:&KEY (CL:CONS (CL:CONS 'BASE (CL:CONS 10 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'NONDECIMAL-DIGIT? (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS '< (CL:CONS 10 (CL:CONS 'BASE NIL))) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1482 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1482 (CL:CONS '~G1482 (CL:CONS (CL:CONS '%NONDECIMAL-DIGIT? (CL:CONS 'X (CL:CONS #\A (CL:CONS 'BASE NIL)))) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS '%NONDECIMAL-DIGIT? (CL:CONS 'X (CL:CONS #\a (CL:CONS 'BASE NIL)))) NIL)) NIL))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'NONDECIMAL-DIGIT?))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'DIGIT-CHAR? (CL:CONS (CL:CONS 'C (CL:CONS 'CL:&KEY (CL:CONS (CL:CONS 'BASE (CL:CONS 10 NIL)) NIL))) NIL)))) (CL:PROGN (CL:DEFUN DIGIT-CHAR? (C CL:&KEY (BASE 10)) (CL:BLOCK DIGIT-CHAR? (CL:BLOCK NIL (? (CHARACTER? C) (CL:LABELS ((G3684 (~G1483) (? ~G1483 ~G1483 (NONDECIMAL-DIGIT? C :BASE BASE)))) (G3684 (DECIMAL-DIGIT? C))))))) (CL:SETF (CL:GETHASH #'DIGIT-CHAR? *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'C (CL:CONS 'CL:&KEY (CL:CONS (CL:CONS 'BASE (CL:CONS 10 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'DIGIT-CHAR? (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'CHARACTER? (CL:CONS 'C NIL)) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1483 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1483 (CL:CONS '~G1483 (CL:CONS (CL:CONS 'NONDECIMAL-DIGIT? (CL:CONS 'C (CL:CONS ':BASE (CL:CONS 'BASE NIL)))) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS 'DECIMAL-DIGIT? (CL:CONS 'C NIL)) NIL)) NIL))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'DIGIT-CHAR?))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'HEX-DIGIT-CHAR? (CL:CONS (CL:CONS 'X NIL) NIL)))) (CL:PROGN (CL:DEFUN HEX-DIGIT-CHAR? (X) (CL:BLOCK HEX-DIGIT-CHAR? (CL:BLOCK NIL (CL:LABELS ((G3685 (~G1484) (? ~G1484 ~G1484 (CL:LABELS ((G3686 (~G1485) (? ~G1485 ~G1485 (? (>= X #\a) (<= X #\f))))) (G3686 (? (>= X #\A) (<= X #\F))))))) (G3685 (DIGIT-CHAR? X)))))) (CL:SETF (CL:GETHASH #'HEX-DIGIT-CHAR? *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X NIL) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'HEX-DIGIT-CHAR? (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1484 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1484 (CL:CONS '~G1484 (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1485 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1485 (CL:CONS '~G1485 (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS '>= (CL:CONS 'X (CL:CONS #\a NIL))) (CL:CONS (CL:CONS '<= (CL:CONS 'X (CL:CONS #\f NIL))) NIL))) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS '>= (CL:CONS 'X (CL:CONS #\A NIL))) (CL:CONS (CL:CONS '<= (CL:CONS 'X (CL:CONS #\F NIL))) NIL))) NIL)) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS 'DIGIT-CHAR? (CL:CONS 'X NIL)) NIL)) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'HEX-DIGIT-CHAR?))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'ALPHANUMERIC? (CL:CONS (CL:CONS 'CL:&REST (CL:CONS '~G1487 NIL)) NIL)))) (CL:PROGN (CL:DEFUN ALPHANUMERIC? (CL:&REST ~G1487) (CL:BLOCK ALPHANUMERIC? (CL:BLOCK NIL (CL:BLOCK NIL (CL:LABELS ((G3687 (~G1503) (CL:LABELS ((G3688 (C) (CL:TAGBODY ~G1501 (? (NOT ~G1503) (CL:GO ~G1502)) (CL:SETQ C (CL:CAR ~G1503)) (CL:LABELS ((G3689 (~G1491) (? ~G1491 ~G1491 (CL:RETURN-FROM NIL NIL)))) (G3689 (CL:LABELS ((G3690 (~G1486) (? ~G1486 ~G1486 (DIGIT-CHAR? C)))) (G3690 (ALPHA-CHAR? C))))) (CL:SETQ ~G1503 (CL:CDR ~G1503)) (CL:GO ~G1501) ~G1502 (CL:RETURN-FROM NIL (CL:PROGN T))))) (G3688 NIL)))) (G3687 ~G1487)))))) (CL:SETF (CL:GETHASH #'ALPHANUMERIC? *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'CL:&REST (CL:CONS '~G1487 NIL)) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'ALPHANUMERIC? (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'LET* (CL:CONS (CL:CONS (CL:CONS '~G1503 (CL:CONS '~G1487 NIL)) (CL:CONS (CL:CONS 'C (CL:CONS NIL NIL)) NIL)) (CL:CONS (CL:CONS 'CL:TAGBODY (CL:CONS '~G1501 (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'NOT (CL:CONS '~G1503 NIL)) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1502 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'C (CL:CONS (CL:CONS 'CL:CAR (CL:CONS '~G1503 NIL)) NIL))) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1491 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1491 (CL:CONS '~G1491 (CL:CONS (CL:CONS 'CL:RETURN-FROM (CL:CONS NIL (CL:CONS NIL NIL))) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1486 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1486 (CL:CONS '~G1486 (CL:CONS (CL:CONS 'DIGIT-CHAR? (CL:CONS 'C NIL)) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS 'ALPHA-CHAR? (CL:CONS 'C NIL)) NIL)) NIL)) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS '~G1503 (CL:CONS (CL:CONS 'CL:CDR (CL:CONS '~G1503 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1501 NIL)) (CL:CONS '~G1502 (CL:CONS (CL:CONS 'CL:RETURN (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS T NIL)) NIL)) NIL))))))))) NIL))) NIL))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'ALPHANUMERIC?))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'WHITESPACE? (CL:CONS (CL:CONS 'X NIL) NIL)))) (CL:PROGN (CL:DEFUN WHITESPACE? (X) (CL:BLOCK WHITESPACE? (CL:BLOCK NIL (? (< X 33) (>= X 0))))) (CL:SETF (CL:GETHASH #'WHITESPACE? *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X NIL) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'WHITESPACE? (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS '< (CL:CONS 'X (CL:CONS 33 NIL))) (CL:CONS (CL:CONS '>= (CL:CONS 'X (CL:CONS 0 NIL))) NIL))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'WHITESPACE?))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'CONTROL-CHAR? (CL:CONS (CL:CONS 'X NIL) NIL)))) (CL:PROGN (CL:DEFUN CONTROL-CHAR? (X) (CL:BLOCK CONTROL-CHAR? (CL:BLOCK NIL (< X 32)))) (CL:SETF (CL:GETHASH #'CONTROL-CHAR? *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X NIL) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'CONTROL-CHAR? (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS '< (CL:CONS 'X (CL:CONS 32 NIL))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'CONTROL-CHAR?))
  NIL
  NIL
  (CL:SETQ *FUNCTIONALS* (%NCONC (CL:CONS 'STRING-CONCAT (CL:CONS 'STRING== (CL:CONS 'UPCASE (CL:CONS 'DOWNCASE (CL:CONS 'LIST-STRING (CL:CONS 'STRING-LIST (CL:CONS 'QUEUE-STRING NIL))))))) *FUNCTIONALS*))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'STRING<= (CL:CONS (CL:CONS 'A (CL:CONS 'B NIL)) NIL)))) (CL:PROGN (CL:DEFUN STRING<= (A B) (CL:BLOCK STRING<= (CL:BLOCK NIL (CL:LABELS ((G3691 (LA) (CL:LABELS ((G3692 (LB) (CL:LABELS ((G3693 (~G1504) (CL:BLOCK NIL (CL:LABELS ((G3694 (I) (CL:TAGBODY ~G1506 (? (INTEGER== I ~G1504) (CL:RETURN-FROM NIL (CL:PROGN (<= LA LB)))) (? (> (CL:ELT A I) (CL:ELT B I)) (CL:RETURN-FROM NIL NIL)) (CL:SETQ I (INTEGER+ 1 I)) (CL:GO ~G1506)))) (G3694 0))))) (G3693 (INTEGER LA))))) (G3692 (CL:LENGTH B))))) (G3691 (CL:LENGTH A)))))) (CL:SETF (CL:GETHASH #'STRING<= *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'A (CL:CONS 'B NIL)) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'STRING<= (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS 'LA NIL) (CL:CONS (CL:CONS 'LET (CL:CONS 'LB (CL:CONS (CL:CONS 'CL:LENGTH (CL:CONS 'B NIL)) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1504 NIL) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'LET* (CL:CONS (CL:CONS (CL:CONS 'I (CL:CONS 0 NIL)) NIL) (CL:CONS (CL:CONS 'CL:TAGBODY (CL:CONS '~G1506 (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'INTEGER== (CL:CONS 'I (CL:CONS '~G1504 NIL))) (CL:CONS (CL:CONS 'CL:RETURN (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS (CL:CONS '<= (CL:CONS 'LA (CL:CONS 'LB NIL))) NIL)) NIL)) NIL))) (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS '> (CL:CONS (CL:CONS 'CL:ELT (CL:CONS 'A (CL:CONS 'I NIL))) (CL:CONS (CL:CONS 'CL:ELT (CL:CONS 'B (CL:CONS 'I NIL))) NIL))) (CL:CONS (CL:CONS 'CL:RETURN-FROM (CL:CONS NIL (CL:CONS NIL NIL))) NIL))) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'I (CL:CONS (CL:CONS 'INTEGER+ (CL:CONS 1 (CL:CONS 'I NIL))) NIL))) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1506 NIL)) NIL)))))) NIL))) NIL))) NIL)) NIL)) (CL:CONS (CL:CONS 'INTEGER (CL:CONS 'LA NIL)) NIL)) NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS 'CL:LENGTH (CL:CONS 'A NIL)) NIL)) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'STRING<=))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'STRING-LIST (CL:CONS (CL:CONS 'X NIL) NIL)))) (CL:PROGN (CL:DEFUN STRING-LIST (X) (CL:BLOCK STRING-LIST (CL:BLOCK NIL (CL:LABELS ((G3695 (L) (CL:LABELS ((G3696 (S) (CL:BLOCK NIL (CL:LABELS ((G3697 (I) (CL:TAGBODY ~G1505 (? (< I 0) (CL:RETURN-FROM NIL (CL:PROGN))) (CL:PROGN (CL:SETQ S (CL:PROGN (CL:SETQ S (CL:CONS (CL:ELT X I) S))))) (CL:SETQ I (-- I)) (CL:GO ~G1505)))) (G3697 (-- L)))) S)) (G3696 NIL)))) (G3695 (CL:LENGTH X)))))) (CL:SETF (CL:GETHASH #'STRING-LIST *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X NIL) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'STRING-LIST (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS 'L NIL) (CL:CONS (CL:CONS 'LET (CL:CONS 'S (CL:CONS NIL (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'LET (CL:CONS 'I (CL:CONS (CL:CONS '-- (CL:CONS 'L NIL)) (CL:CONS (CL:CONS 'CL:TAGBODY (CL:CONS '~G1505 (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS '< (CL:CONS 'I (CL:CONS 0 NIL))) (CL:CONS (CL:CONS 'CL:RETURN-FROM (CL:CONS NIL (CL:CONS (CL:CONS 'CL:PROGN NIL) NIL))) NIL))) (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'S (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'S (CL:CONS (CL:CONS 'CL:CONS (CL:CONS (CL:CONS 'CL:ELT (CL:CONS 'X (CL:CONS 'I NIL))) (CL:CONS 'S NIL))) NIL))) NIL)) NIL))) NIL)) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'I (CL:CONS (CL:CONS '-- (CL:CONS 'I NIL)) NIL))) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1505 NIL)) NIL)))))) NIL)))) NIL))) (CL:CONS 'S NIL))))) NIL)) NIL)) (CL:CONS (CL:CONS 'CL:LENGTH (CL:CONS 'X NIL)) NIL)) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'STRING-LIST))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'QUEUE-STRING (CL:CONS (CL:CONS 'X NIL) NIL)))) (CL:PROGN (CL:DEFUN QUEUE-STRING (X) (CL:BLOCK QUEUE-STRING (CL:BLOCK NIL (CL:APPLY #'STRING-CONCAT (CL:MAPCAR #'(CL:LAMBDA (_) (? (STRING? _) _ (CHARACTER? _) (STRING _))) (QUEUE-LIST X)))))) (CL:SETF (CL:GETHASH #'QUEUE-STRING *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X NIL) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'QUEUE-STRING (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'CL:APPLY (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS 'STRING-CONCAT NIL)) (CL:CONS (CL:CONS 'CL:MAPCAR (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '_ NIL) (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'STRING? (CL:CONS '_ NIL)) (CL:CONS '_ (CL:CONS (CL:CONS 'CHARACTER? (CL:CONS '_ NIL)) (CL:CONS (CL:CONS 'STRING (CL:CONS '_ NIL)) NIL))))) NIL)) NIL)) (CL:CONS (CL:CONS 'QUEUE-LIST (CL:CONS 'X NIL)) NIL))) NIL))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'QUEUE-STRING))
  NIL
  NIL
  