anchor.diff:  NIL
   (CL:SETQ *FUNCTIONALS* (%NCONC (CL:CONS 'QUEUE-LIST (CL:CONS 'QUEUE-FRONT NIL)) *FUNCTIONALS*))
   (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'MAKE-QUEUE (CL:CONS NIL NIL)))) (CL:PROGN (CL:DEFUN MAKE-QUEUE NIL (CL:BLOCK MAKE-QUEUE (CL:BLOCK NIL (CL:CONS NIL NIL)))) (CL:SETF (CL:GETHASH #'MAKE-QUEUE *FUNCTION-ATOM-SOURCES*) (CL:CONS NIL (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'MAKE-QUEUE (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'CL:CONS (CL:CONS NIL (CL:CONS NIL NIL))) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'MAKE-QUEUE))
  -(CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'ENQUEUE (CL:CONS (CL:CONS 'X (CL:CONS 'CL:&REST (CL:CONS 'VALS NIL))) NIL)))) (CL:PROGN (CL:DEFUN ENQUEUE (X CL:&REST VALS) (CL:BLOCK ENQUEUE (CL:BLOCK NIL (CL:RPLACA X (CL:CDR (CL:RPLACD (CL:LABELS ((G3672 (~G1484) (? ~G1484 ~G1484 X))) (G3672 (CL:CAR X))) VALS))) VALS))) (CL:SETF (CL:GETHASH #'ENQUEUE *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X (CL:CONS 'CL:&REST (CL:CONS 'VALS NIL))) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'ENQUEUE (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'CL:RPLACA (CL:CONS 'X (CL:CONS (CL:CONS 'CL:CDR (CL:CONS (CL:CONS 'CL:RPLACD (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 'X NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS 'CL:CAR (CL:CONS 'X NIL)) NIL)) (CL:CONS 'VALS NIL))) NIL)) NIL))) (CL:CONS 'VALS NIL)))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'ENQUEUE))
  +(CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'ENQUEUE (CL:CONS (CL:CONS 'X (CL:CONS 'CL:&REST (CL:CONS 'VALS NIL))) NIL)))) (CL:PROGN (CL:DEFUN ENQUEUE (X CL:&REST VALS) (CL:BLOCK ENQUEUE (CL:BLOCK NIL (CL:RPLACA X (CL:CDR (CL:RPLACD (CL:LABELS ((G3670 (~G1476) (? ~G1476 ~G1476 X))) (G3670 (CL:CAR X))) VALS))) VALS))) (CL:SETF (CL:GETHASH #'ENQUEUE *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X (CL:CONS 'CL:&REST (CL:CONS 'VALS NIL))) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'ENQUEUE (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'CL:RPLACA (CL:CONS 'X (CL:CONS (CL:CONS 'CL:CDR (CL:CONS (CL:CONS 'CL:RPLACD (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 'X NIL)))) NIL)) NIL)) (CL:CONS (CL:CONS 'CL:CAR (CL:CONS 'X NIL)) NIL)) (CL:CONS 'VALS NIL))) NIL)) NIL))) (CL:CONS 'VALS NIL)))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'ENQUEUE))
   (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'ENQUEUE-LIST (CL:CONS (CL:CONS 'X (CL:CONS 'VALS NIL)) NIL)))) (CL:PROGN (CL:DEFUN ENQUEUE-LIST (X VALS) (CL:BLOCK ENQUEUE-LIST (CL:BLOCK NIL (CL:RPLACD X (NCONC (CL:CDR X) VALS)) (CL:RPLACA X (CL:LAST VALS))))) (CL:SETF (CL:GETHASH #'ENQUEUE-LIST *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X (CL:CONS 'VALS NIL)) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'ENQUEUE-LIST (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'CL:RPLACD (CL:CONS 'X (CL:CONS (CL:CONS 'NCONC (CL:CONS (CL:CONS 'CL:CDR (CL:CONS 'X NIL)) (CL:CONS 'VALS NIL))) NIL))) (CL:CONS (CL:CONS 'CL:RPLACA (CL:CONS 'X (CL:CONS (CL:CONS 'CL:LAST (CL:CONS 'VALS NIL)) NIL))) NIL)))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'ENQUEUE-LIST))
  -(CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'QUEUE-POP (CL:CONS (CL:CONS 'X NIL) NIL)))) (CL:PROGN (CL:DEFUN QUEUE-POP (X) (CL:BLOCK QUEUE-POP (CL:BLOCK NIL (CL:LABELS ((G3673 (~G1485) (? (NOT (CL:CDR (CL:CDR X))) (CL:RPLACA X NIL)) (? (CL:CDR X) (CL:RPLACD X (CL:CDR (CL:CDR X)))) ~G1485)) (G3673 (CL:CAR (CL:CDR X))))))) (CL:SETF (CL:GETHASH #'QUEUE-POP *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X NIL) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'QUEUE-POP (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1485 NIL) (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'NOT (CL:CONS (CL:CONS 'CL:CDR (CL:CONS (CL:CONS 'CL:CDR (CL:CONS 'X NIL)) NIL)) NIL)) (CL:CONS (CL:CONS 'CL:RPLACA (CL:CONS 'X (CL:CONS NIL NIL))) NIL))) (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'CL:CDR (CL:CONS 'X NIL)) (CL:CONS (CL:CONS 'CL:RPLACD (CL:CONS 'X (CL:CONS (CL:CONS 'CL:CDR (CL:CONS (CL:CONS 'CL:CDR (CL:CONS 'X NIL)) NIL)) NIL))) NIL))) (CL:CONS '~G1485 NIL)))) NIL)) (CL:CONS (CL:CONS 'CL:CAR (CL:CONS (CL:CONS 'CL:CDR (CL:CONS 'X NIL)) NIL)) NIL)) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'QUEUE-POP))
  +(CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'QUEUE-POP (CL:CONS (CL:CONS 'X NIL) NIL)))) (CL:PROGN (CL:DEFUN QUEUE-POP (X) (CL:BLOCK QUEUE-POP (CL:BLOCK NIL (CL:LABELS ((G3671 (~G1477) (? (NOT (CL:CDR (CL:CDR X))) (CL:RPLACA X NIL)) (? (CL:CDR X) (CL:RPLACD X (CL:CDR (CL:CDR X)))) ~G1477)) (G3671 (CL:CAR (CL:CDR X))))))) (CL:SETF (CL:GETHASH #'QUEUE-POP *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X NIL) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'QUEUE-POP (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 (CL:CONS 'NOT (CL:CONS (CL:CONS 'CL:CDR (CL:CONS (CL:CONS 'CL:CDR (CL:CONS 'X NIL)) NIL)) NIL)) (CL:CONS (CL:CONS 'CL:RPLACA (CL:CONS 'X (CL:CONS NIL NIL))) NIL))) (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'CL:CDR (CL:CONS 'X NIL)) (CL:CONS (CL:CONS 'CL:RPLACD (CL:CONS 'X (CL:CONS (CL:CONS 'CL:CDR (CL:CONS (CL:CONS 'CL:CDR (CL:CONS 'X NIL)) NIL)) NIL))) NIL))) (CL:CONS '~G1477 NIL)))) NIL)) (CL:CONS (CL:CONS 'CL:CAR (CL:CONS (CL:CONS 'CL:CDR (CL:CONS 'X NIL)) NIL)) NIL)) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'QUEUE-POP))
   (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'QUEUE-LIST (CL:CONS (CL:CONS 'X NIL) NIL)))) (CL:PROGN (CL:DEFUN QUEUE-LIST (X) (CL:BLOCK QUEUE-LIST (CL:BLOCK NIL (CL:CDR X)))) (CL:SETF (CL:GETHASH #'QUEUE-LIST *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X NIL) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'QUEUE-LIST (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'CL:CDR (CL:CONS 'X NIL)) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'QUEUE-LIST))
   (CL:BLOCK NIL (PRINT-DEFINITION (CL:CONS 'DEFUN (CL:CONS 'QUEUE-FRONT (CL:CONS (CL:CONS 'X NIL) NIL)))) (CL:PROGN (CL:DEFUN QUEUE-FRONT (X) (CL:BLOCK QUEUE-FRONT (CL:BLOCK NIL (CL:CAR (CL:CDR X))))) (CL:SETF (CL:GETHASH #'QUEUE-FRONT *FUNCTION-ATOM-SOURCES*) (CL:CONS (CL:CONS 'X NIL) (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS 'QUEUE-FRONT (CL:CONS (CL:CONS 'CL:BLOCK (CL:CONS NIL (CL:CONS (CL:CONS 'CL:CAR (CL:CONS (CL:CONS 'CL:CDR (CL:CONS 'X NIL)) NIL)) NIL))) NIL))) NIL)))) (CL:RETURN-FROM NIL 'QUEUE-FRONT))
   NIL
  
positive.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
  
negative.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 ((G3654 (~G1461) (? ~G1461 ~G1461 (CL:ATOM Y)))) (G3654 (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 '~G1461 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1461 (CL:CONS '~G1461 (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 ((G3655 (~G1472) (CL:LABELS ((G3656 (I) (CL:TAGBODY ~G1470 (? (NOT ~G1472) (CL:GO ~G1471)) (CL:SETQ I (CL:CAR ~G1472)) (CL:LABELS ((G3657 (~G1462) (? ~G1462 ~G1462 (CL:LABELS ((G3658 (~G1463) (? ~G1463 ~G1463 (CL:RETURN-FROM NIL NIL)))) (G3658 (> N I)))))) (G3657 (== N I))) (CL:SETQ N I) (CL:SETQ ~G1472 (CL:CDR ~G1472)) (CL:GO ~G1470) ~G1471 (CL:RETURN-FROM NIL (CL:PROGN T))))) (G3656 NIL)))) (G3655 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 '~G1472 (CL:CONS 'X NIL)) (CL:CONS (CL:CONS 'I (CL:CONS NIL NIL)) NIL)) (CL:CONS (CL:CONS 'CL:TAGBODY (CL:CONS '~G1470 (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'NOT (CL:CONS '~G1472 NIL)) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1471 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'I (CL:CONS (CL:CONS 'CL:CAR (CL:CONS '~G1472 NIL)) NIL))) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1462 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1462 (CL:CONS '~G1462 (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1463 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1463 (CL:CONS '~G1463 (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 '~G1472 (CL:CONS (CL:CONS 'CL:CDR (CL:CONS '~G1472 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1470 NIL)) (CL:CONS '~G1471 (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 ((G3659 (~G1475) (CL:LABELS ((G3660 (I) (CL:TAGBODY ~G1473 (? (NOT ~G1475) (CL:GO ~G1474)) (CL:SETQ I (CL:CAR ~G1475)) (CL:LABELS ((G3661 (~G1464) (? ~G1464 ~G1464 (CL:LABELS ((G3662 (~G1465) (? ~G1465 ~G1465 (CL:RETURN-FROM NIL NIL)))) (G3662 (< N I)))))) (G3661 (== N I))) (CL:SETQ N I) (CL:SETQ ~G1475 (CL:CDR ~G1475)) (CL:GO ~G1473) ~G1474 (CL:RETURN-FROM NIL (CL:PROGN T))))) (G3660 NIL)))) (G3659 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 '~G1475 (CL:CONS 'X NIL)) (CL:CONS (CL:CONS 'I (CL:CONS NIL NIL)) NIL)) (CL:CONS (CL:CONS 'CL:TAGBODY (CL:CONS '~G1473 (CL:CONS (CL:CONS '? (CL:CONS (CL:CONS 'NOT (CL:CONS '~G1475 NIL)) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1474 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:SETQ (CL:CONS 'I (CL:CONS (CL:CONS 'CL:CAR (CL:CONS '~G1475 NIL)) NIL))) (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1464 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1464 (CL:CONS '~G1464 (CL:CONS (CL:CONS (CL:CONS 'CL:FUNCTION (CL:CONS (CL:CONS (CL:CONS '~G1465 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1465 (CL:CONS '~G1465 (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 '~G1475 (CL:CONS (CL:CONS 'CL:CDR (CL:CONS '~G1475 NIL)) NIL))) (CL:CONS (CL:CONS 'CL:GO (CL:CONS '~G1473 NIL)) (CL:CONS '~G1474 (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 ((G3663 (~G1466) (? ~G1466 ~G1466 (CHARACTER> X Y)))) (G3663 (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 '~G1466 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1466 (CL:CONS '~G1466 (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 ((G3664 (~G1467) (? ~G1467 ~G1467 (CHARACTER< X Y)))) (G3664 (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 '~G1467 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1467 (CL:CONS '~G1467 (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 ((G3665 (~G1468) (? ~G1468 ~G1468 (INTEGER> X Y)))) (G3665 (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 '~G1468 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1468 (CL:CONS '~G1468 (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 ((G3666 (~G1469) (? ~G1469 ~G1469 (INTEGER< X Y)))) (G3666 (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 '~G1469 NIL) (CL:CONS (CL:CONS '? (CL:CONS '~G1469 (CL:CONS '~G1469 (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?))
  