anchor.diff:  (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 ((G3600 (~G1412) (? ~G1412 ~G1412 (CL:ATOM Y)))) (G3600 (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 '~G1412 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1412 (CL:CONS '~G1412 (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))
  +(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 ((G3601 (~G1423) (CL:LABELS ((G3602 (I) (CL:TAGBODY ~G1421 (? (NOT ~G1423) (CL:GO ~G1422)) (CL:SETQ I (CL:CAR ~G1423)) (CL:LABELS ((G3603 (~G1413) (? ~G1413 ~G1413 (CL:LABELS ((G3604 (~G1414) (? ~G1414 ~G1414 (CL:RETURN-FROM NIL NIL)))) (G3604 (> N I)))))) (G3603 (== N I))) (CL:SETQ N I) (CL:SETQ ~G1423 (CL:CDR ~G1423)) (CL:GO ~G1421) ~G1422 (CL:RETURN-FROM NIL (CL:PROGN T))))) (G3602 NIL)))) (G3601 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 '~G1423 (CL:CONS 'X NIL)) (CL:CONS (CL:CONS 'I (CL:CONS NIL NIL)) NIL)) (CL:CONS (CL:CONS 'CL:TAGBODY (CL:CONS '~G1421 (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'NOT (CL:CONS '~G1423 NIL)) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1422 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'I (CL:CONS (CL:CONS 'CL:CAR (CL:CONS '~G1423 NIL)) NIL))) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1413 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1413 (CL:CONS '~G1413 (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1414 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1414 (CL:CONS '~G1414 (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 '~G1423 (CL:CONS (CL:CONS 'CL:CDR (CL:CONS '~G1423 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1421 NIL)) (CL:CONS '~G1422 (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 ((G3605 (~G1426) (CL:LABELS ((G3606 (I) (CL:TAGBODY ~G1424 (? (NOT ~G1426) (CL:GO ~G1425)) (CL:SETQ I (CL:CAR ~G1426)) (CL:LABELS ((G3607 (~G1415) (? ~G1415 ~G1415 (CL:LABELS ((G3608 (~G1416) (? ~G1416 ~G1416 (CL:RETURN-FROM NIL NIL)))) (G3608 (< N I)))))) (G3607 (== N I))) (CL:SETQ N I) (CL:SETQ ~G1426 (CL:CDR ~G1426)) (CL:GO ~G1424) ~G1425 (CL:RETURN-FROM NIL (CL:PROGN T))))) (G3606 NIL)))) (G3605 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 '~G1426 (CL:CONS 'X NIL)) (CL:CONS (CL:CONS 'I (CL:CONS NIL NIL)) NIL)) (CL:CONS (CL:CONS 'CL:TAGBODY (CL:CONS '~G1424 (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'NOT (CL:CONS '~G1426 NIL)) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1425 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'I (CL:CONS (CL:CONS 'CL:CAR (CL:CONS '~G1426 NIL)) NIL))) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1415 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1415 (CL:CONS '~G1415 (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1416 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1416 (CL:CONS '~G1416 (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 '~G1426 (CL:CONS (CL:CONS 'CL:CDR (CL:CONS '~G1426 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1424 NIL)) (CL:CONS '~G1425 (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 ((G3609 (~G1417) (? ~G1417 ~G1417 (CHARACTER> X Y)))) (G3609 (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 '~G1417 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1417 (CL:CONS '~G1417 (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 ((G3610 (~G1418) (? ~G1418 ~G1418 (CHARACTER< X Y)))) (G3610 (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 '~G1418 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1418 (CL:CONS '~G1418 (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 ((G3611 (~G1419) (? ~G1419 ~G1419 (INTEGER> X Y)))) (G3611 (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 '~G1419 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1419 (CL:CONS '~G1419 (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 ((G3612 (~G1420) (? ~G1420 ~G1420 (INTEGER< X Y)))) (G3612 (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 '~G1420 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1420 (CL:CONS '~G1420 (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 '>= (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?))
  
positive.code: (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 ((G3599 (A) (? A (CL:APPLY (? (CONS? A) #'APPEND (STRING? A) #'STRING-CONCAT #'NUMBER+) X) (? (CL:CDR X) (CL:APPLY #'+ (CL:CDR X)))))) (G3599 (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*))
  
negative.code: NIL
  NIL
  NIL
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS '%NCONC-0 (CL:CONS (CL:CONS 'LSTS NIL) NIL)))) (CL:PROGN (CL:DEFUN %NCONC-0 (LSTS) (CL:BLOCK %NCONC-0 (CL:BLOCK NIL (? LSTS (CL:PROGN (CL:LABELS ((G3669 (!) (? ! (CL:PROGN (CL:RPLACD (CL:LAST !) (%NCONC-0 (CL:CDR LSTS))) !) (%NCONC-0 (CL:CDR LSTS))))) (G3669 (CL:CAR LSTS)))))))) (CL:SETF (CL:GETHASH #'%NCONC-0 *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'LSTS NIL) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS '%NCONC-0 (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS '? (CL:CONS 'LSTS (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS (CL:CONS 'LET (CL:CONS '! (CL:CONS (CL:CONS 'CL:CAR (CL:CONS 'LSTS NIL)) (CL:CONS (CL:CONS '? (CL:CONS '! (CL:CONS (CL:CONS 'CL:PROGN (CL:CONS (CL:CONS 'CL:RPLACD (CL:CONS (CL:CONS 'CL:LAST (CL:CONS '! NIL)) (CL:CONS (CL:CONS '%NCONC-0 (CL:CONS (CL:CONS 'CL:CDR (CL:CONS 'LSTS NIL)) NIL)) NIL))) (CL:CONS '! NIL))) (CL:CONS (CL:CONS '%!? (CL:CONS (CL:CONS '%NCONC-0 (CL:CONS (CL:CONS 'CL:CDR (CL:CONS 'LSTS NIL)) NIL)) NIL)) NIL)))) NIL)))) NIL)) NIL))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL '%NCONC-0))
  (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'NCONC (CL:CONS (CL:CONS 'CL:&REST (CL:CONS 'LSTS NIL)) NIL)))) (CL:PROGN (CL:DEFUN NCONC (CL:&REST LSTS) (CL:BLOCK NCONC (CL:BLOCK NIL (%NCONC-0 LSTS)))) (CL:SETF (CL:GETHASH #'NCONC *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'CL:&REST (CL:CONS 'LSTS NIL)) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'NCONC (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS '%NCONC-0 (CL:CONS 'LSTS NIL)) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'NCONC))
  (CL:BLOCK NIL (%DEFMACRO NCONC! (PLACE CL:&REST LSTS) (CL:BLOCK NCONC! (CL:CONS '= (CL:CONS PLACE (CL:CONS (CL:CONS 'NCONC (CL:CONS PLACE (APPEND LSTS NIL))) NIL))))))
  NIL
  